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94 
ss 1.0 PROGRAM ABSTRACT 
97 
98 This proyram tests out KDJ11-DA CPU board, includi the J1l chip set, 
99 on-board MEMORY, on-board ROM’s, serial line unit, Line time clocks, 
ett and the Bus Arbitration. 
102 The KDJ11-DA is a PDP-11 CPU that ineoreeretes the J1l chip set as the 
103 heart of the aoeer. It o. @ quad height G22 bus module. It has 
104 512 KB of on- acer. ° he memory has par ity detection and is 
105 located on 18 256k x 1 RAM chips. There is a memory CSR to help 
136 determine parity errors. 
108 The KDJ11-DA also has 2 on-board ROM’s. They contain the self-test 
itp and the boot codes. 
1i1 The Serial Line Unit is implemented thru 2 Dlart chips which provide 
112 the standard console interface to the CPU. It has internal loop back 
13 mode and has a user selectable baud rate of 300 to 38400 baud. 
ia The line time clock functions are implemented using the BEVENT line. 
117 As a program option the Q22BE module is used to test verify the inter- 
ti9 rupt arbitration of the KDJ11-DA , DMA protocol, and PMG counter. 
120 Further details are eo ed mentioned test by test in the DESIGN 
121 DESCRIPTION section # 
122 
123 
124 


SEQ 0004 
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2.0 





SEQ 0005 


PROGRAMMING CONVENTIONS 


2.2 


2.3 


2.4 


2.5 


2.6 


Implementation Language 

The PDP/11 Assembly Language has been used to write this CPU 
diagnostic 

Program Generation 


This Di tic is developed and assembled on a VAX usi 
1 mode "MCR MAC” and the “ORION.MLB” libraryas the 
ollowing: 


$ MA 

MAC> NAME ,NAME/-SP=ORION.MLB/ML ,NAME .MAC/DS :GBL 

t jnelay NAME.OBJ would be transfered to an XXDP+ media from 
the VAX by using the “XDT” or “SHARON” utility. 

Hardware Requirements 

To run successfully the diagnostic needs: 


A. KDJ11-DA CPU module 
B. console terminal 


In DVT, and stage one pet actur eg (module assembly) the G22 
Bus exerciser is needed to check Bus logic. 


Loading and Starting Procedures 
To start-up this program: 
1. Boot XXDP-+ 


2. A ye *R NAME”, where name is the name of the BIN or BIC 
file for this program. 


The starting address of 7 ae is 200. ; 

Note: if trying to restart program in an arbitrary place 
after HALT on Break the following registers should be set up: 
1777757220 to disable memmory management 


Special Environments 


Program Options 
The Q@22 Bus Exerciser is utilized if it is present in the 
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SEQ 0006 
183 system and the diagnostic is not roe in UFD mode. 
13S Standard capabilities of looping on test and on error are provided. 
186 . 
187 SWITCH REGISTER SELECTION: 
188 BIT NUMBER USE 
189 15 HALT ON ERROR 
190 14 LOOP ON PRESENT TEST 
191 13 INHIBIT ERROR TYPEOUTS 
192 12 ENABLE TEST TRACING 
193 11 INHIBIT ITERATIONS 
194 10 BELL ON ERROR 
195 9 LOOP ON ERROR 
196 8 LOOP ON TEST IN SWR<5S-0> 
197 7 INHIBIT THE CHECK PARITY TEST 
198 6 Not used 
199 5-0 Subtest number to loop on 
200 (BIT 8) 
201 
202 
203 
Sos 2.7 Execution Times 
206 Without check ear ity test, the diagnostic runs in under 20 
ad seconds. With it, it takes about 2 minutes. 
209 
210 
S35 2.8 Error Information 
213 In the case of errors, a failing PC and test numbers are given. 
214 Where it is ible, expected and received data ere given. 
ir For an example, see section 2.9 . 
217 
218 
219 
sso 2.9 Examples 
222 After booting XXDP+ and starting the program, the follow: 
ot will naan a the terminal: 7” - 
pot * KDJ11-DA CPU DIAGNOSTIC - COKDDAO * 
<<. SWR = XXXXXX NEW = 
ro pote XXXXXX correspond to present software switch register 
se ‘ 
231 After Ww" an operator can do one of the following: 
232 1) type in a new software switch register setting ollowed 
233 carrige return or 
234 2) just yee in carriage return in which case the software 
See register will remain unchanged. 
eU Example of error printout: 
239 ERROR DOING Q22BE INTERRUPTS 
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240 TEST ERROR ADDRESS ADDRESS 
241 + PC <21-16> <15-0> 
242 27 105620 66600 000000 
a Note: this may not correspond to the actual Program Counter. 





SEQ 0007 
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246 
247 


3.0 PROGRAM DESCRIPTION 


3.1 Jil CODE 


This portion of the code tests out the J1ll chip set. It is broken 
into 3 pieces: CPU tests, which verify different instructions in 
different modes and different trap conditions; MMU tests, which 
verify different functions of MMU; and FFP tests, which do 
different floating point instructions. 


This portion of the code have been written in close relationship 
with the J1l microcode. Therefore, even though not all possible 
instructions in all possible addressing mode have been tested, an 
attempt has been made to exercise all of the microcode. 


Most of the CPU diagnostic tests have been taken from the “DJ11-8 


Cluster diagnostic and has not been rewritten due to similarities. 


3.2 NATIVE REGISTER 


TEST - NATIVE REGISTER 
NATIVE REGISTER TEST 


This test checks out the native register’s existance and it’s 
various bits. 


BGNTST 
>} Set up timeout vector PC to TIMOUT 





> Set up timeout vector PSW to 7 

) Read the Native register _ 

} Check out the bootstrap switch as read only 
Check out the module functional revision as read only 
Check out that the self-test enable bit works 
Check out he indicators (i.e LEDS) 


ENDTST 


TIMOUT: Clean stack 
Error NATIVE register timed out 


SEQ 0006 
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SEQ 0009 
297 
298 3.3 MAINTENANCE REGISTER 
299 | 
3 
302 TEST - MAINT REGISTER TEST 
304 MAINTENANCE REGISTER TEST 
305 THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 
306 7-4 TO BE 0010, 2-1 TO BE 10, AND READ BITS 10-08, 03, 00 
307 FOR FUTURE_USE. THOSE BITS REPRESENT THE FOLLOWING SIGNALS: 
308 MULTIPROCESSOR SLAVE, UNTBUS SYSTEM, FPA AVAILABLE, HALT/TRAP 
309 OPTION, AND AC POWER 
310 ROUTINE TEST 
311 F MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN 
312 é ; ERROR 
313 : ENDIF 
314 : READ MAINT.REG. BITS <10-08,03,00> 
315 ENDROUT INE 
316 
317 
318 
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eee 


SEQ 0010 


320 

oH 3.4 KDJ11-DA ON BOARD MEMORY 

323 The KDJ11-DA has on board memory of 512 Kbytes - block mode, with 

355 parity. fixed start at 0. 

326 The KDJ11-DA board uses 256K x 1 chips which allows us to use two 

=. patterns per RAM only. 

329 Our aonery di tic starts with test log the data path using this 
330 pattern: 0, 177777, 177400, 170360, 007417, 052525, 125252. The 2nd 
331 test is checking the accessibility of each address and an error will 
332 flag if memo raps. The third test is to check the memory registers 
333 ific to KDJ11-DA. Fourth, is the short and stuck on bits test 
334 ich will test eeary eingle bit 0/1 for all addresses. The KNAIZUK 
335 HARTMANN algorithm which divides the memory into sections of three is 
336 used in test five as a quick verify of all stuck at faults in the date 
337 and addressing. Test six checks the perity detect logic of all memory 
338 locations on KDJ11-DA. ; 

ase You can refer to this section for more details. 

341 

342 

ai TEST - KDJ11-DA DATA PATHS 

saa DATA PATH TEST 

347 This test checks out the data and address paths on the KDJ11-D 

348 Board. The patterns used will be: 

349 0 

350 1 

351 177400 

352 170360 

353 007417 

354 052525 

355 125252 

356 

357 BGNTST 

358 >} Set Timeout trap to TIMOUT 

359 ; Set timeout priority to 7 

360 Read location 0 

361 ) FOR pattern := first to last 

362 >) Write pattern 

363 > R tern 

see ; IF Pattern read <> Pattern Written THEN 

366 ) 

367 ENDTST 

368 

369 

370 

+3 TEST - MEMORY ACCESSABILITY 

1, ACCESSIBILITY TEST 

375 This test will check the accessibility of each address of memory 

376 on the KDJ11-D Board. IF a memory traps out then an error 





~ 
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SEQ 0011 
377 will be flagged. A side effect of this test should be that sll memory 
378 is cleared 
379 
380 BGNTST 
381 } Set timeout trap to TIMOUT 
382 >} Set timeout priority to 7 
383 )} For MSB_Address := 200000 to 1777777 DO 
384 } Contents of address := 0 
385 >} Go to the next test 
386 ) 
387 )TIMOUT : : 
388 >) Error Address should not have timed out 
389 TST 
390 
391 
392 
a3 , TEST - MEMORY ERROR REGISTER 
zo MEMORY ERROR REGISTER 
397 This test will check the MEMORY ERROR REGISTER on the KDJ11-D 
398 Board. 
399 
400 BGNTST 
401 ; Setup timeout VECTOR PC to TIMOUT 
402 Setup timeout VECTOR Priority to 7 
403 )} Setup Parity abort VECTOR to PARINT 
404 ) Setup Parity abort VECTOR Priority to 7 
405 >) Do a bus reset 
406 >} Read the Memory Error Register (17772100) 
407 ; Make sure that the register bits are in the right state 
408 Check all R/W bits 
409 ENDTST 
410 
411 
412 
nF TEST - DATA SHORTS AND STUCK AT BITS 
rir DATA SHORTS AND STUCK AT BITS TEST 
417 This test will check the DATA Rams for Data shorts and stuck at bits. 
rit Testing occurs as below: 
420 1. A memory location is checked to be set to 0 
421 2. IF NOT O error 
422 3. The location is complemented 
423 4. IF contents NOT -1 error 
424 5. This is repeated for all addresses 
ro 6. Steps 1-5 are done from location 1777777 to 0 
427 Note: The KDJ11-DA board uses 256k X_1 chips, This allows us to 
428 use only 2 patterns per RAM. IF one bits is shorted to 
429 another we will detect this when we read for the initial state. 
430 If it has ch from the expected state then chances are that 
431 the bits are rted together. 


4 
433 A side effect of this test should be that memory is cleared. 
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SEQ 0012 
434 
435 BGNTST 
436 > FOR MSB_Address := 0 to 1777776 DO BY 2 
437 } Clear Address 
438 ) If Contents <> 0 _ 
439 ) in memor 
440 } Complement the Contents of Address 
441 } IF contents <> -1 THEN 
442 ) in memory 
443 > ENDFOR . 
444 >} FOR MSB_Address := 1777776 DOWNTO O DO BY 2 
445 ) IF contents <> i THEN 
446 ) ERROR in 
447 ) Complement the he Conbents of Address 
448 ) IF contents <> 0 THEN 
449 ) in memory 
450 } 
451 ENDTST 
452 
is 
re TEST - QUICK VERIFY DATA AND ADRESSING TEST 
ped UNIQUE ADDRESSING TEST 
459 This test will check the data seing 9 of the memories. 
460 It uses the KNAIZUK HARTMANN QUICK VERIFY. T AM TEST ALGORITHM. 
461 This ——— will test memory for all stuck at faults in the 
rr; data addressing 
464 Memory is split into eeae sens of 3. 
Por 1 b, 1,2 - 3.4.5 - 6,7,10 .. 
rr #4 Testing works as follows. 
469 1. Write a 0 into the 2nd and 3rd address of all groups 
470 write a -1 into the ist address of all groups 
471 2. make sure that the 2nd address of all groups contain 0 
472 3. Write a -1 into the address of all groups 
473 4. e sure that the 3rd address of all groups contain 0 
aia 5. Make sure that the Ist and 2nd address of all groups 
475 contain -1 
476 6. Write a O into the ist address of all groups : 
477 7. Make sure that the ist address of all groups contain 0 
478 8. Write a -1 into the 3rd address of all groups 
ris 9. Make sure that the 3rd address of all groups contain -1 
481 
is 
see TEST - CHECK PARITY DETECT LOGIC AND RAMS 
rt CHECK PARITY DETECT LOGIC 
488 This test will check out the parit Saree ion logic on the KDJ11-DA 
489 board. We will write wrong parity all locations and then we will 
490 Expect the a parity trap on a rand. 
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503 


ee Shae eet rte eeh ttt ti 5 4 


$Seeeseseceususe 


. 





SEQ 0013 


: 


a a a a a a a a a a it at at et et Sat Sgt Sa Set Bet Se? 


PARI 


Set up Parity Vector (114) To PARINT 
Enable Write Bad parity (Set bit 2 in MER (17772100)) 
Clear all of memory | 
Read first location written to 
IF Parity Abort Occurs THEN : : 

Error There should be no Parity Aborts when disabled 
Enable Parity Error (Set Bit 0 im MER (17772100) 
i. eee to Last_address DO 


READ Address 


} NOP 

) IF No Interrupt THEN 

; Error Didn't Detect Bad parity 
) 

) 


LSE 
Clear the interrupt flag 
Read the MER and make sure the obtained address is the correct one 


NT: 
atte that an interrupt occured 


~' 
wn 
ond 


TEST - 16 BIT ROM CHECKSUM TEST 
ROM'S CHECKSUMS 
16 BIT ROM TEST 


INI 
} POINT PAGE 2 TO SELF TEST 
>} ENABL 


3.5 ON-BOARD ROM CODE 


The KDJ11-DA Netive Firmware resides in a 2-16Kx8 EPROM’s which 
are phisically located on the KDJ11-DA module. The Firmware has 
@ monitor user commands, auto sequence boot, console 
boot, power up self tests, extended self tests invoked via user 
intervention, and support ea text of basic error messages in ell 
supported eleven foreign languages including extended error 
messages in English. 


In this test we perform a sum test for the on Board ROM’ s which 
resides at address 17400000 - 17677777. 


T 
T MMU REGISTERS 
E SELF TEST BIT 
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548 } READ FIRST 2 WORDS OF ROM 

= ; GET EXPECTED CHECKSUM 

551 ; DO CALCULATE CHECKSUM 

552 >} ADD WORD TO REGISTER 

553 > DO UNTIL ALL WORDS ADDED 

aes END CALCULATION 

556 NEGATE THE SUM OF WORDS 

ae, IF NEG. SUM < > EXPECTED CHECKSUM 

559 ENDTST 

560 

561 

562 

563 

564 

565 

566 

rod 3.6 LINE TIME CLOCKS CODE 

569 The line time clock control and status register ias accessed at 
570 address 17777546. The EVENT we thru vector 100 on interrupt 
ei request level 6 is received from Q-bus signal BEVENT. 
573 Note: in UFD mode only functions corresponding to Boot Rom selection 
ais are checked. 

576 In this diagnostic we start with test#1: existence of the clock, 
a6 test#2: interrupt priority max 5, test#3: resetting LKS. 
La TEST - LTC BIT 7 

ret LTC BIT 7 TEST 

583 This test check for the existance of the LTC register and it 

Fra makes sure that the clock is ticking. 

586 BGNTST 

587 Set up timeout vector PC to TIMOUT 

588 Set up timeout vector PSW to 7 

589 Read the LTC CSR 

590 not timed OUT 

591 : a set amount of time 

592 : Check bit? 

593 : IF BIT7 is set THEN 

Find : Increment BIT7 set flag 

596 : INCREMENT BIT7 Clear Flag 

597 : ENDFOR 

598 : IF either flag has not been set at all THEN 

599 : Error Cl is not ticking 

oR ENDTST 

602 TIMOUT: Clean stack 

cae Error LTC register timed out 


SEQ 0014 





a —  ——————EEEOEeEeEee——eee_ee—s 
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605 

606 

607 TEST - LKS INT RRUPT PRIORITY 

609 CHECK THAT LKS INTERRUPTS HAPPEN AT PRIORITY 5 CLEARING LKS<07> 
610 AND DON’T HAPPEN AT PRIORITY 6 

611 ROUTINE TEST 

612 IF UFD AND LKS IS DISABLED THEN 

613 : EXIT TEST 

614 ENDIF 

615 . SET PRIORITY TO 3 

616 ; CLEAR INTERRUPT_FLAG 

617 ‘ LET LKS<06>=#1 TENABLE INTERRUPTS ) 

618 : SET COUNTER TO WAIT FOR 3 INTERRUPTS 

619 : REPEAT 

620 i DECREMENT COUNTER 

621 : UNTIL INTERRUPT_FLAG EQ #3 OR COUNTER EQ 40 
622 : CLEAR LKS<06> 

623 : IF LKS<07> EQ #1 THEN 

624 : pene ERROR (WAS NOT CLEARED ON INTERRUPT > 
626 . IF COUNTER LT TIME_REQUIRED_FOR_3 3 INTERRUPTS _ FOR_800HZ 
627 : ERROR CINTERRUPTS NEVER GO L 

628 . ENDIF 

629 ‘ IF INTERRUPT_FLAG LT #3 THEN 

630 : ERROR CINTERRUPTS DON’T HAPPEN) 

631 , ENDIF 

632 ; CLEAR INTERUPT_FLAG 

633 ; WAIT FOR LKS<7>=1 

634 j LET LKS<7>=0 

635 : IF LKS<7> NE #0 THEN 

636 : ERROR (LKS<7> NOT CLEARED 

637 ENDIF 

638 , SET PRIORITY TO 6 

639 ; SET COUNTER TO 1 SLOW CLOCK INTERRUPT 

640 : SET LKS<06> 

641 . REPEAT 

642 " : DECREMENT COUNTER 

643 , UNTIL COUNTER EQ #0 OR INTERRUPT_FLAG NE #0 
644 ; IF INTERRUPT_FLAG NE #0 THEN 

645 s . ERROR CINTERRUPT WAS AT WRONG PRIORITY) 
646 : ENDIF 

647 : RESTORE ORIGINAL PRIORITY 

“8 ENDROUT INE 

650 ROUTINE LINE CLOCK_INTERUPT 

651 INCREMENT INTERRUPT_FLAG 

652 ENDROUTINE 

653 

654 

655 

os TEST - RESETTING LKS 

658 RESETTING LKS(#) 

659 THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>. 
660 ROUTINE TEST 

661 IF UFD AND LKS IS DISABLED THEN 


SEQ 0015 
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ees aaa 


SEQ 0016 


EXIT TEST 

POINT LKS VECTOR 100 TO ERROR_LKS_ ILLEGAL _INTERRUPT 
SYNCHRONIZE LKS BY WAITING FOR 3 PULSES 

LET LKS<06> rte 


EXECUTE “RESET” 
IF LKS<6> NE #0 THEN 
ERROR 


ENDIF 


ENDIF 
IF SLLEGA, 1 DE CLOCK _DTERAUPT NE 0 THEN 


ENDIF 
ENDROUT INE 


ROUTINE ye LKS_ILLEGAL_INTERRUPT 
— AG ILLEGAL _LINE_CLOCK_INTERRUPT 


3.7 SERIAL LINE UNIT CODE 


r halts it enters ‘ODT communicates over the _ 
SLUO at addresses 17777560 ory 17777566. They considered the console 
CPU. SLUI is the General Serial I/0 and 


addresses by the 
is addressed at 17776500 thrns 17776506 and SLUI does not have the halt 
on breake option. 


In this di tic we verify the Mine chip. Ad of the SLU chip 
utilizing maintenance mode of the chip. All serial line unit 
tests: interrupt level, loop back enh eanebiit and transmitter 


receiver pits isters, are performed on UO and SLU1 except the 
BREAK CONDITION snd the “OVERRUN CONDITION tested on SLU1 only, because 


SLUO Scans be es Gonen 


TEST - SERIAL LINE UNIT REGISTERS 


SERIAL LINE UNIT TEST(#) 

BCR<2-0> WILL BE READ TO FIND OUT BAUD R ATE. SLU WILL oo 
RAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> I 

RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
TO 1 XCSR<02>. THE LINE CL INE WILL BE 
USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS, IF THE 
PROGRAM HANGS IN THE LOOP BACK MODE. 


ROUTINE TEST 

IF UFO AND CONSOLE NOT PRESENT 
GO TO TEST_22 

ENDIF 


IF BCR<O7> EQ #0 THEN 











E2 


COKDDBO KD_11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 09-Apr-86 09:43 Page 8-7 


SEQ 0017 
719 . READ BCR<2-0> TO GET BAUD RATE 
720 : ENDIF 

721 ; LET 4=ADDRESS_OF - TIMEOUT ROUTINE 

Tee - DO FOR RCSR,XCSR,RBUF 

723 ! READ XRCSR, RycéRe RBUF , XBUF 

724 : : IF TIMEQUT FLAG NE #0 THEN 
725 : eRROR 

726 ENDIF 

727 ENDDO 

726 ENDROUT INE 

730 ROUTINE TIMEOUT 

731 ‘ LET TIMEQUT_FLAG=#1 

732 ENDROUTINE 

733 

734 

735 

736 TEST - XCSR BIT 7 

738 CHECK THAT XCSR<07> CAN BE O AND 1. 

740 XCSR <07> TRANSMITTER READY 

742 ROUTINE TEST 

743 : WAIT FOR XCSR<07>=41 NO MORE THAN 200MSEC 
744 - IF XCSR<O7> NE #1 THEN 

745 _ z ERROR 

746 : ENDIF 

747 : LET XBUF=@NULL 

748 . WAIT FOR XCSR<07>=#1 

749 ‘ LET = 

750 ; TF XCSR<O7> NE O THEN 

751 : ERROR (READY DION’T GO LOW) 
752 ENDIF 

753 ENDROUT INE 

754 

755 

756 

el TEST - RCSR BIT 7 AND XCSR BIT 2 

5 CHECK THAT RCSR<07> CAN BE O AND 1 AND THAT XCSR<02> WORKS PROPERLY. 
761 RCSR <07> RECEIVER DONE 

ree RCSR <02> MAINTENANCE 

764 ROUTINE TEST 

765 _CCHECK RCSR<O7> AND XCSR<07>) 

766 : WAIT FOR XCSR<07>=¢1 

767 ; LET XCSR<02>=@1 (LOOP BACK MODE) 

768 ; LET XBUF=#125 

769 : WAIT FOR RCSR<07>=#1 NO MORE THAN 200MSEC 
770 ; IF RCSR<O7> NE #1 THE 

771 ‘ ; ERROR C(RCSR<O7> DOES NOT BECOME 1 OR XCSR<02>D0ES NOT 
772 ; WORK ) 

773 : ENDIF 

774 ; IF RBUF NE #125 THEN 

775 : : ERROR 





Fe 
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776 , ENDIF 

777 . IF RCSR<O7> NE #0 THEN 

778 . ERROR (RCSR<O7>DOES NOT GO LOW) 

779 . ENDIF 

780 . LET XCSR<02>=#0 

761 ENDROUI TNE 

782 

783 

784 

Lg TEST - RESET AND XCSR<2!0> 

787 CHECK THAT RESET CLEARS XCSR<O!2>. 

788 ROUTINE TEST 

789 oan RCSR<O7> AND XCSR<07> AND RESET) 

790 LET XCSR<02 00>=#1 (1.00P BACK MODE) 

791 j EXECUTE “RE 

792 ‘ IF XCSR<02!00> NE #0 THEN 

793 , ERROR 

794 , ENDIF 

795 , LET XCSR<02>=#0 

796 ENDROUTINE 

797 

199 

ot TEST - RESET AND INTERRUPT ENABLE BITS 

802 CHECK THAT INTERRUPTS DON’T HAPPEN AT PRIORITY 4 AND THAT RESET 
poe CLEARS XCSR<06> AND RCSR<06>. 

805 RCSR <06> RECEIVER INTERRUPT ENABLE 

ose XCSR <06> TRANSMITTER INTERRUPT ENABLE 

808 ROUTINE TEST 

809 ‘ LET 60=#ADDRESS_OF_ILLEGAL_INTERRUPT_XRCSR 
810 : LET 64= ma ae “OF ILLEGAL _INTERRUPT_XRCSR 
811 ‘ eT PRIORITY TO 4 

812 : T XCSR<02>=41 oe MODE ) 

813 . LET XCSR<06>=41 oe TRANSMIT INTERRUPTS) 
814 ; LET RCSR<06>=#1 ( RECEIVE INTERRUPTS) 
815 ® WAIT FOR XCSR<0O7>=#1 Nyt TO TRANSMIT) 
816 , LET XBUF=@NULL (SEND A AC 

817 . WAIT FOR ILLEGAL INTERRUPTS CABOUT 200MSEC ) 
818 . EXECUTE “RE 

819 , TF XCSR<06> NE #0 OR RCSR<06> NE #0 OR XRCSR NE #0 THEN 
820 ; . ERROR 

821 ‘ ENDIF 

822 ‘ RESTORE PRIORITY TO NORMAL 

ass ENDROUT INE 

825 ROUTINE ILLEGAL INTERRUPT_XRCSR 

826 : INCREMENT XRCSR 

827 ENDROUT INE 

828 

829 

830 

eas TEST - INTERRUPT PRIORITY FOR SLU 





SEQ 0018 
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833 CHECK THAT INTERRUPTS HAPP™!: AT PRIORITY 3 AND THAT THEY CLEAR 
os RCSR<0O6> AND XCSR<06>. 

836 reniees TEST 

837 LET 60=#ADDRESS_OF_LEGAL_RINTERRUPT 

838 F LET 64=#ADDRESS_OF_LEGAL ~XINTERRUPT 

839 ‘ LET XCSR<02>=#1 

840 . SET PRIORITY TO #3 

841 WAIT FOR XINT T=#3 

842 IF XCSR<O7> EQ #1 THEN 

843 ERROR 

844 i‘ ENDIF 

845 a WAIT FOR RINTERRUPT=#3 

846 ; IF RCSR<O7> EQ #0 THEN 

847 , ERROR 

848 ‘ ENDIF 

849 . LET XCSR<02>=#0 

850 : SET PRIORITY TO NORMAL 

coe ENDROUT INE 

853 a Leo. XINTERRUPT 

854 Te eee 

855 : LACREMENT X NTERRUPT 

= ENDROUTINE 

858 ais LEGAL _RINTERRUPT 

859 READ RCSR 

860 INCREMENT RINTERRUPT 

861 ENDROUTINE 

862 

863 

864 

as3 TEST - BREAK CONDITION 

pH SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 
rs CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 
871 RCSR <15> ERROR 

872 <13> FRAMING ERROR 

aaa <11> RECEIVED BREAK 

a XCSR <00> TRANSMIT BREAK 

877 ROUTINE TEST 

878 ; LET XCSR<02>=41 

879 : LET XCSR<00>=41 

880 : WAIT FOR RCSR<O7>=#1 

881 ‘ IF RBUF<15!13!11> NE #1 THEN 

oe ‘ barr ERROR CERROR, FRAMING ERROR, RECEIVE BREAK NE 1) 
884 ‘ LET XCSR<00>=#0 

885 . IF XCSR<O0> NE #0 THEN 

one : a ERROR (XCSR<00> DOES NOT GO LOW) 
888 ‘ WAST FOR ipa | 

889 : LET XBUF=@NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED) 


Sté@ 0019 
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ENDROUT INE 


TEST - 


SEQ 0020 


WAIT FOR RCSR<0O7>=#1 
IF RBUF<15!13!11> NE #0 THEN 
ERROR , 


ENDIF 

LET XCSR<00>=#1 

EXECUTE “RESET” 

IF XCSR<OO> NE #0 THEN 
ERROR 


ENDIF 
LET XCSR<02>=#0 


OVERRUN CONDITION 


CHECK OVERRUN CONDITION 


RCSR 


<14> OVERRUN ERROR 


SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 


ies: TEST 

LET XCSR<02>=#1 CLOOPBACK MODE) 

WAIT FOR XCSR<07>=#1 

LET XBUF =#252 

WAIT FOR XCSR<O7>=#1 

LET XBUF=#125 San ia THE 2ND W/O READING THE 1ST CHARACTER) 

WAIT FOR RCSR<O7> 

STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 

IF LOW BYTE OF RBUF NE #125 

bor (1ST CHARACTER WASN'T OVERRUN) 

TIF RBUF<15!14> NE #1 THEN 

ERROR (NO OVERRUN BIT SET) 

ENDIF 

WAIT FOR XCSR<07>=#1 

LET XBUF= 

WAIT FOR RCSR<07>=#1 

IF RBUF<15!14> NE @0 THEN 

— ERROR (WASN’T CLEARED ON THE NEXT CHARACTER RECEIVED) 
. LET xXCSR<02>=40 
ENDROUT INE 


3.8 LED'S TEST CODE 
This test will determine that the LED's situated on the CPU bosrd 
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Basses 


953 
955 
957 
959 
961 
963 
965 
967 


et th ht PES. 


work correctly. This is done by sending a delayed turn on and off 
to the LED's so we can see their rotational pattern. 


TEST - LED‘S ON 


LED’S ON 
THIS TEST a 5 eee BDR TO CONTAIN A ROTATING PATTERN 


DISPLAYED IN L 


etn TEST 
veuaee A KEY NOT RECEIVED FROM KEYBOARD DO 
ST NG TIME TO SEE PATTERN 


L ALLOWI 
ROTATE LEFT TO LIGHT UP NEXT LED'S 
ENDROUT INE 
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SEQ 0022 


3.9 Q22BE CODE 


_ Q22 Bus Exerciser is a hardware option module that can work in 
tion with the CPU to test different levels of interrupt, 

ore! tration between PIRQ's, and PMG counter of the KDJ11-DA, Direct 

Memory Access protocol. 


More details about every test could be found in this section. 


TEST - DIFFERENT LEVELS OF INTERRUPTS 


DIFFERENT LEVELS OF INTERRUPTS 

THIS TEST WILL PROGRAM Q22 BUS EXERCISER TO INTERRUPT AT DIFFERENT 
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
PIRQ'S WILL BE TESTED. 


CHECK DIFFERENT LEVELS OF INTERRUPTS. 


ROUTINE TEST 
SET VECTOR TO INTERRUPT 
FOR INTERRUPTS FROM 4 tor 7 DO 
} ENABLE INTERRUPTS 
SE ROT PLAG SET THEN 
ERROR 
ENABLE INTERRUPTS 
SET PRIORITY=INTERRUPT -1 
IF INTERRUPT_FLAG NOTSET THEN 
: ERROR 
ENDIF 
: LET INTERRUPT_DMA=0 
ENDROUTINE 
ROUTINE TNTERUPT DHA 
T INTERRUPT_FLAG=1 
RETURN 
ENDROUTINE 


TEST - ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 


CHECK PRIORITY ORDER BETWEEN PIRQ'S AND INTERRUPTS. 
ROUTINE TEST 


ENDI 

” FOR I FROM #6 DOWN TO #5 
SET PRIORITY TO I 
ENABLE INT TCI+i) AND PIRQ(I+1) 

IF are 2? WAS BEFORE PIRQ(I+1) THEN 


ENDIF 











Ke 
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SEQ 0023 

1027 : ENDDO 
1028 ENDROUT INE 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1938 3.10 LIST OF SUBTESTS PERFORMED 
1038 The following list represents the sequential order of subtests 
1039 performed im COKDDAO..... poe Fe I which are subject to the APT 
teat qualifications of section 3.2 are indicated by a Cache-APT label. 
1042 
1044 TEST NO. TEST NAME/FUNCTION 
1045 test 1 Base instruction set tests 
1046 test 32 11-DA on Board Memory 
1047 test 33 KDJ11-DA Date Path 
1 test 34 Memory accessabi lity 
1049 test 35 Memory Error Regi 
1050 test 36 Date and stuck at bits 
1051 test 37 Quick verify Data and Addressi 
1052 test 38 Check Parity detect Logic and R 
1053 test 39 Native ry yet 
1054 test 40 On Board code 
1055 test 41 LTC bit 7 
1056 test 42 LKS pwperrunt ‘hictiaind 
1057 test 43 Resetting 
1058 test 44 Maintenance 
1059 test 45 Serial Line Unit "Ricteter 

test XCSR bit 
1061 test 47 RCSR bit 5 and XCSR bit 2 
1062 test 48 Reset and XCSR<2!0> 
1063 test 49 Reset and ingarrupt enable bit 
1064 test 50 Interrupt 8 ogg for SLU 
1065 test 51 Break Condition 
1066 test 52 Overrun Condition 
1067 test 53 ‘s On 

test 54 Different Levels of interrupt 


1068 
1069 test 55 Arbitration between PIRG's and interrupts 
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1075 3.11 PROGRAM UPDATES AND MODIFICATIONS 
1079 Version COKDDAO 10-01-85 
1078 Version COKDDBO 02-01-86 


082 
1083 4.0 BIBLIOGRAPHY 
1085 N/A 


1088 

1089 5.0 GLOSSARY 
1090 

1091 N/A 


1 
1095 APPENDICES 
1097 N/A 


SEQ 0024 


Michael Charchaflian 
Michael Charcheflian 
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1118 


167400 
000300 


000001 


$SWR=167400 


$ SWRMK = 
COKDDBO pe -DA CLUSTER DIAG. 


» MASS. 01754 


é 
a BY DIAG. ENG. 
: THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 


: #PACKAGE (MAINDEC-11-DZQAC-C8), OCT, 1982. 


iTN=1 

.SBTTL OPERATIONAL SWITCH SETTINGS 
& 
2 
;* 


ne 





UIP 
UIPARi= 
AR2 


UIPAR3= 






HALT ON 

LOOP ON T 

INHIBIT ERROR TYPE 
INHIBIT ITERATIONS 
BELL ON ERROR 


OUTS 


LOOP ON ERROR 
hoe ON TEST IN SWR<5:0> 


177616 
*#USER “D” PAGE DESCRIPTOR REGISTORS 
177620 


177 
saUSER "ts an" ADDRESS REGISTERS 


EXTENSIVE ah lg RAM TEST 
TENSIVE T AM TEST 


SEQ 0025 





172220 
172222 


172312 
172314 


UIPAR4= 
UIPARS= 
UIPAR6= 
UIPAR7= 
;* 


177656 
“D" 
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177650 
177652 
177654 


PAGE ADDRESS REGISTERS 


= 177676 


UDP 
PE 3 aah “I” PAGE DESCRIPTOR REGISTERS 


SI 


SDPDR1= 


ei 
Te ab oo “D” PAGE DESCRIPTOR REGISTERS 


17 
172242 
17 


17 
ae “D" PAGE ADDRESS REGISTERS 


SDPAR7= 172276 
s #KERNEL at Oe PAGE DESCRIPTOR REGISTERS 


172314 


eS ae 
Sr ———————EE~~*- 





SEQ 0026 


172316 


172376 


001100 
104000 


ee 


KIPDR7= 172316 
;#KERNEL “D” 


pC= _—s 7 
#PRIORITY LEVEL DEFINITIONS 








J 
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SEQ 0027 


PAGE DESCRIPTOR REGISTERS 


172 
VSKERNEL "I" PAGE ADDRESS REGISTERS 


72376 
BASIC DEFINITIONS 


L 
AL ADDRESS OF THE STACK POINTER *#* 1100 ##s 


1100 
EMT ONE DEFINITION OF ERROR CALL 
IOT wile” C DEFINITION OF SCOPE CALL 


1 ;;CODE FOR HORIZONTAL TAB 
12 ;;CODE FOR LINE FEED 
15 ;;CODE FOR CARRIAGE RETURN 
200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
4 oll Sle ; ;PROCESSOR STATUS WORD 
STKLMT= 177774 ;;STACK LIMIT REGISTER 
177772 ;;PROGRAM INTERRUPT REQUEST REGISTER 
77570 ; HARDWARE SWITCH REGISTER 

177570 DISPLAY REGISTER 
AL PURPOSE REGISTER DEFINITIONS 
60 ;;GENERAL REGISTER 
#1 $3 REGISTER 
#2 ;;GENERAL REGISTER 
63 $3 AL REGIS 
64 ;; GENERAL REGISTER 
4S 33 AL REGISTER 

;;GENERAL REGISTER 
67 ;;GENERAL REGISTER 

3357 POINTER 

AM COUNTER 


;;PRIORITY LEVEL 0 


en ae 
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100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 

4 

2 

1 
SWO9 
SWO8 
SWO7 
SWO6 
SWO5 
SWO4 
SWO3 
SWO2 
SWOO 


SWO1 


10000 


1000 
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BASIC DEFINITIONS 
000010 


001160 
004060 


000777 001160 
004060 


1134 


000232 
000232 


SEQ 0029 

BIT3= BITOS 
BIT2= BITO2 
BITi= BITO1 
BITO= BITOO 
;*BASIC “CPU” TRAP VECTOR ADDRESSES 
ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
RESVEC= 10 ; ;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33"T" BIT 
TRTIVEC= 14 ;; TRACE TRAP 

TVEC= 14 ; ;BREAKPOINT TRAP (BPT 
IOTVEC= 20 3 s INPUT/ TRAP CIOT) *«*#SCOPE*ss 

C= 24 ;;POWER FAIL 

VEC= 30 ;;EMULATOR TRAP CEMT) **ERROR++ 
TRAPVEC=34 3; “TRAP” 
TKVEC= 60 ;:TTY KEYBOARD VECTOR 
TPVEC= 64 ;;TTY PRINTER VECTOR 
PIRQVEC=240 ;;PR 


OGRAM INTERRUPT REQUEST VECTOR 
UFDSET= ;FLAG FOR UFD 
.SBTTL TRAP CATCHER 


;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 


;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:#LOCATION © CONTAINS © TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 ;;SOFTWARE SWITCH REGISTER 
CLR $TMPO 

JMP @eSTART 
.=220 

MOV #777, $TMPO 

JMP @eSTART 


.SBTTL ACT11 HOOKS 


5p RRKRERAAEEESEREREREAE ARR ESAEAESEEES AES EEREREEESES ESE SESE ESSERE 
;HOOKS REQUIRED BY ACT11 
$SVPC=. 


svP ;SAVE PC 
SENDAD 5:1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$E0P 


. :;2)SET LOC.52 TO ZERO 
. = $SVPC 3; RESTORE PC 
.SBTTL APT PARAMETER BLOCK 
ARK ReAeAaRASAAAAASSASEAASAEAARSAESEEEEAEASEESERESEE EE EEE ESE EEE EERES 
REQUIRED FOR APT 


SET LOCATIONS 24 AND 44 AS 


3 SEAAAAA AREAS SEAS ERERESS ESS SER EEASSESESA EASES ES EEERERERE SESS S 


$X=. ;:SAVE CURRENT LOCATION 
.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ;3FOR APT START UP 
244 ;;POINT TO APT INDIRECT ADDRESS PNTR. 
$APTHOR ;;POINT TO APT HEADER BLOCK 
=. $X ;;RESET LOCATION COUNT 
5p RRERAAAAEAA AEA AAR AE ERERER EERE EERE ER ERES ES EERE EE ESSE REESE SESS 
ge TUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
et SPEC. 


$HIBTS: .WORD 0 


;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
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SEQ 0030 


SS ON 1 UNIT (QUICK VERIFY) 
ONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


000234 001200 $MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 
000236 000000 $TSTM: .WORD ;;RUN TIM OF LONGEST TEST 

000240 000000 $PASTM: .WORD ;;RUN TIME IN SECS. OF 1ST PA 

000242 000000 $UNITM: .WORD bi I 

000244 000052 .WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLECWORDS ) 
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SEQ 0031 


COMMON TAGS 
1135 .SBTTL COMMON TAGS 
; | Rae AAR AREAS AE EAE ETRE AAAS SESE E SEES E ESE EEEEEE EEE EEE EEE EES 
;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*#USED IN THE PROGRAM. 
001100 .=1100 
001100 $CMT ;;START OF COMMON TAGS 
1100 000000 . WORD 0 
001102 000 $TSTNM: .BYTE 0 ;;CONTAINS THE TEST NUMBER 
001103 000 $ERFLG: .BYTE 0 ; ;CONTA ERROR FLAG 
1104 000000 $ICNT: .WORD O ;;CONTAINS SUBTEST ITERATION COUNT 
11 000000 $LPADR: .WORD 0O ;;CONTAINS SCOPE LOOP ADDRESS 
001110 000000 $LPERR: .WORD 0O 33 FOR ERRORS 
001112 000000 $ERTTL: .WORD 0O ;;CONTAINS TOTAL ERRORS DETECTED 
001114 000 $ITEMB: .BYTE O 33 CONT BYTE 
001115 001 $ERMAX: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
001116 000000 $ERRPC: .WORD O ;;CONTAINS PC OF LAST ERROR INSTRUCTION 
11 000000 $GDADR: .WORD 0O ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
001122 000000 $ : .WORD O ;;CONTAINS ADDRESS OF ‘BAD’ DATA 
001124 000000 $GDDAT: .WORD 0O ;;CONTAINS ‘GOOD’ DATA 
001126 000000 $BDDAT: .WORD 0 ; ;CONT ‘BAD’ DATA 
001130 000000 .WORD 0 ; ;RESERVED--NOT TO BE USED 
001132 000000 .WORDB O 
001134 000 AUT .BYTE O ;;AUTOMATIC MODE INDICATOR 
001135 000 $INTAG: .BYTE 0O 3; INTERRUPT MODE INDICATOR 
11 000000 .WORD 0O 
001140 177570 SWR : .WORD OSWR ;;ADDRESS OF SWITCH REGISTER 
001142 177570 DISPLAY: .WORD DDISP ;;ADDRESS OF DISPLAY REGISTER 
11 177560 $TKS: i 331TY KBD STATUS 
001146 177562 $TKB: 177562 3;1TTY KBD 
001150 177564 $TPS: 177564 3;TTY PRINTER STATUS REG. ADDRESS 
001152 177566 $TPB: 77566 szTTY PR Ss 
001154 000 $NULL: .BYTE O ; ; CONTAINS CHARACT FILLS 
001155 002 $FILLS: .BYTE 2 ;;CONTAINS # OF FILLER TERS RE 
1156 012 $FILLC: .BYTE 12 ;;1NSERT F . AFT “LINE FEED” 
001157 000 $TPFLG: .BYTE 0 ;; “TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
000002 REPT 2 
001160 000000 $TMPO: .WORD 0O ;;USER DEFINED 
001162 000000 $TMPi: .WORD 0 ;;USER DEF 
001164 000000 $TIMES: O ;;MAX. NUMBER OF ITERATIONS 
11 000000 $ESCAPE:0 ;;ESC 
ony a4 377 377 $BELL: .ASCIZ <207><377><377> ;;CODE 
001174 077 $QUES: .ASCII /?/ ; QUESTION MARK 
11 015 $CRLF: .ASCII <1i5> ;; CARRIAGE RETURN 
001176 012 000 $LF: -ASCIZ <il2> ;sLINE F 
5p RRREREAEARESAREREERERAREREAER ERAS EREE SES ES EERE RSE SES EEE EE EERE 
.SBTTL APT MAILBOX-ETABLE 
ee 
001200 $MAIL: ;;APT MAILBOX 
001200 000000 $MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
1202 000000 $FATAL: .WORD ATAL ;;FATAL ERROR NUMBER 
1204 000000 $TESTN: .WORD ATESTN ;;TEST NUMBER 
1 000000 $PASS: .WORD APASS 73P COUNT 
001210 000000 $DEVCT: .WORD ADEVCT ;;DEVICE C 
1212 000000 $UNIT: .WORD  AUNIT 331/0 UNIT 
001214 000000 $MSGAD: .WORD ; ;MESSAGE ADDRESS 





000 
000 
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000000 


SEQ 0032 


1 APT ENVIRONFENT TABLE 
ENVIRONMENT BYT 
: ;ENVIRONMENT MODE BI 

STAPT SWITCH REGISTER 

;;USER SWITCHES 

;;CPU TYPE,OPTIONS 

BITS 15- 11=CPU TYPE 
11/04=01, 11/05=02, 11/20=03,11/40=04,11/45=05 
11/ 79=06 . POQ= 07,Q@=10 

BIT 10=REAL TIME 

BIT 9=FLOATING POINT PROCESSOR 

BIT 8=MEMORY 

;;HIGH ADDRESS,M.S. BYTE 


‘MEM. 
Hem. TYPE BYTE. -- (HIGH BYTE) 
900 NSE 2001 


500 NSEC 
; ;HIGH ADDRESS, BLK¢ 
MEM.LAST ADOR. ak BYTES. .THIS WORD AND LOW OF “TYPE” ABOVE 


z 
¢: 
: 
a 


= 

ge 

2 
_ 


aapnan 
@ 
5 


: 
: 
: 
: 


eee 


SS,BLK#4 
#1,BUS PRIORITY#1 


ADDRE 
; INTERRUPT VECTOR#2BUS PRIORITY#2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 


; ;CONTROLLER DESCRIPTION WORD#1 








he eb eb eb eee 
ee ee ee ee 


364 
1161 001366 
1162 001370 
1163 001372 
1164 
1165 001374 
1166 001376 
1167 001400 
1168 001402 
1169 
1170 001404 
1171 001406 
1172 001410 
et 001412 


79 
1180 001424 
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ERROR POINTER TABLE 


Ps ERROR POINTER iy 


T 
F $ITEMB IS 0 


INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
T X NUMBER F N 
N THE TABLE IS PERTINENT. 
NENT AIS ($ 
EACH ITEM IN THE Mang 7 CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


Page 


Ic 
HE ONLY 


13 


ERROR MESSAGE 


THE DATA 
; POINTS TO THE DATA FORMAT 


.SBTTL ERROR DEFINITIONS 


DT1 
0 
; ITEM 2 


;ITEM 3 


;1TEM 4 


;CPU 


ERROR 
;TEST #, ERROR PC 
;$TMP1, SERRPC 


;$TMP1 


;MMU ERROR 
‘TEST @ ERROR PC 
: $TMP1, $ERRP 


PP ERROR 
TEST 1 Senne Sas PC 


;CHECKSUM ERROR IN 16-BIT ROM 


;TEST # 
;$TMPi, 


SERRPC 


; TIMEOUT READING LKS 


;TEST @ 
;$TMP1, 


sLKS<07> DOES NOT BECOME 1 
T #, PC 
, SERRPC 


 STMPL 


WRONG NUMBER OF LKS INTERRUPTS 


sTEST + 


;LKS a ie HAPPEN AT WRONG PRIORITY 


;TEST @ 
; $TMP1, 


;RESET | ad CLEAR LKS<06> 


;TEST @ 


PC 
1, $ERRPC 


PC 
1, $ERRPC 


SERREC. 


go 


SEQ 0033 








1182 001430 
1183 001432 


— 
7 
@ 

vi 
88 
mere 
ah 
sy 


: 
8 


1209 

1210 001504 
1211 001506 
1212 001510 
1213 001512 
1214 

1215 001514 
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026502 
000000 
021236 
026211 
026630 


021274 
025314 
026502 


021320 
025314 
026502 


021351 
025341 
026746 


021732 


Wednesday 09-Apr-86 09:43 Page 15-1 


SEQ 0034 


; $TMP1, SERRPC 


; TIMEOUT READING SLU REGISTERS 
;TEST #, ADDRESS FAILED 
: $TMP1, SERRPC. SBDDAT 


;XMIT READY DION'T GO LOW 
;TEST #, PC 
; $TMP1, $ERRPC 


sRCSR DOESN'T BECOME 1 
;TEST # 
: $TMP1, $ERRPC 


;WRONG CHARACTER RECEIVED 
: TEST #. PC. EXPECTED DATA, RECEIVED DATA 
: $TMP1, $ERRPC, $GDDAT , $BDDAT 


sRCSR<O7> NOT CLEARED AFTER READING RBUF 
;sTEST #, PC 
;$TMP1,$ 


;XCSR<O7> NOT SET ON RESET 
sTEST #, PC 
; $TMP1, $ERRPC 
os NOT CLEARED ON RESET 
HH PC 

1” SERRPC 
;SLU hs lla HAPPEN AT 4 


‘TEST ¢ PC 
;$TMP1,$Eh C 


sRESET DOES NOT CLEAR XCSR<6> AND RSCR<6> 
: TRP1. SERRPC 


TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07> 
sTEST #, PC 
: $TMP1, $ERRPC 


SRECEIVE INTERRUPTS DON’T CLEAR RCSR<07> 
;TEST #, PC 
; $TMP1, $ERRPC 











ee 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5S.03 Wednesday 09-Apr-86 09:43 Page 15-2 
ERROR DEFINITIONS 


SEQ 0035 





1239 ;ITEM 25 
1240 001564 022002 EM105 ;BREAK CONDITION DOES NOT SET RBUF PROPERLY 
1241 001566 026255 DH105 STEST @, PC 
1242 001570 026760 DT105 : $TMP1, $ERRPC , RBUF 
1243 001572 000000 
1244 ;ITEM 26 
1245 001574 022055 EM106 :RBUF WASN’ T CLEARED ON NEXT CHAR. 
1246 001576 026255 105 TEST 
1247 001600 026760 DT105 ee teRROC RB 
1248 001602 000000 0 
1249 ;ITEM 27 
1250 001604 022133 EM107 ; ERROR IN WRITING TO XCSR<O> 
1251 001606 025314 OH1 :TEST # 
1252 001610 OT1 : $TMP1, $ERRPC 
1253 001612 0 
1254 ;ITEM 30 
1255 001614 022167 EM110 ;RESET ,D0Es NOT CLEAR XCSR<00> 
1256 001616 025314 OH1 sTEST #, PC 
1257 001 026502 OT1 : $TMP1, $ERRPC 
1258 001622 000000 0 
1259 ;ITEM 31 
1260 001624 022231 EM111 FIRST | CHARACTER WAS NOT OVERRUN BY THE SECOND 
1261 001 025341 ‘Te Est EXPECTED DATA, RECEIVED DATA 
1262 001630 026746 OT75 Thi te aT $GDDAT , $BDDAT 
1263 001632 
1264 ;ITEM 32 
1265 001634 022307 EM112 : OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF 
1266 001636 026255 DH105 ‘test é RBUF 
1267 001640 026760 DT105 1 teRRPC. RBUF 
1268 001642 0 
1269 ;ITEM 33 
1270 001644 022372 EM113 :RBUF WAS NOT CLEARED ON THE NEXT CHARACTER 
1271 001 DH105 ‘TEST @, PC, RBUF 
1272 001650 026760 0T105 ;$TMP1, $ERRPC, RBUF 
1273 001652 
sITEM 34 
1275 001654 022456 EM114 /ERROR IN XCSR<2> 
1276 001656 025314 DH1 :TEST @, PC 
1277 001660 026502 OT1  $TMP1, $ERRPC 
1278 001662 000000 0 
1279 ;ITEM 35 
1280 001664 022531 EM124 ;PIRQ INTERRUPTS DON'T TAKE PRIORITY OVER @ BUS INTERRUPTS 
1281 001666 025314 OH1 :TEST @, PC 
1282 001670 026502 OT ;$TMP1, $ERRPC 
1283 001672 000000 0 
1284 ;ITEM 36 
1285 001674 022623 EM125 :NO POWER DOWN TRAP TO 24 OCCUR 
1286 001676 025314 DH1 :TEST #, PC 
1287 001700 026502 OT1 ;$TMP1, $ERRPC 
1288 001702 000000 0 
1289 sITEM 37 
1290 001704 022662 EM126 sERROR IN INTERRUPTS FROM Q22BE 
13s SOLOS Sse gH Toe eho 
1293 001712 000000 0 
1294 sITEM 40 
1295 001714 022717 —M127 ;ERROR IN PMG COUNTER 








KS 
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1301 001726 
30 


Sevtettet ttt th tits 
S888 S888 88s 
SSHF NEE 


WBUWUuW 
eoreres 
Wonou & 

S 

=a 

g 


> ee ee eo be ee be bo be bb ee be ee eb eb be hp pe be 
ran 
z 


SSeS SARSSSSCEREER RS 
ne 


es 


1342 0020 


023006 
025314 
026502 





SEQ 0036 


;TEST #, PC 
; $TMP1, $ERRPC 


;UNEXPECTED TIMEOUT 
STEST @ 
: $TMP1, $ERRPC 
:ERROR WRITING TO LKS<6> 
; $TMP1, $ERRPC 
: MAINTENANCE REGISTER ERROR 
TEST 9 PC 
: $TMP1, $ERRPC 
; ERROR IN THE DATA PATHS 


‘TEST #, PC, EXPECTED DATA, RECEIVED DATA 
: $TMP1, $ERRPC, $GDDAT , $BDDAT 


; TIMED ie ACCESSING LOCATION 0 


;TEST # 
;$TMP1, LERRPC 


:TIMED OUT _IN TRYING TO ACCESS MEMORY 
‘ STMP1, SERRPC 


ERROR IN FUNCTIONAL REV BITS ON NATIVE REGISTER 
' $TMPL, $ERRPC 


ERROR IN INDICATOR BITS ON THE NATIVE REGISTER 
TPP 1. $ERRPC 


or IN THE BOOT SELECT SWITCHES ON THE NATIVE REGISTER 
Hg "3 


: TIMED OUT IN ACCESSING THE NATIVE REGISTER 
;$TMP1, $ERRPC 


LTC MONITOR IS NOT TOGGLING 
sTEST #, PC 
: $TMP1, $ERRPC 





- 


1376 002116 


e 
§ 
i 


SSSesse 


ee tat 
WUuw 

© 

~ 
age 
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0 
;I1TEM 54 
—M145 
DH1i 
DT1i 


a 


SEQ 0037 


; TIMEOUT IN ACCESSING THE LKS REGISTER 
;TEST #, PC 
; $TMP1, SERRPC 


:ERROR IN STUCK AT ZERO BITS ON MER 
‘ $TMP1, $ERRPC 
;COULD NOT SET ONE OF THE R/W BITS ON THE MER 


“TEST #, PC, EXPECTED DATA, RECEIVED DATA 
: $TMP1, $ERRPC, $GDDAT, $B8DDAT 


Ors an aan ON THE MER DID NOT CLEAR ON RESET 


a 7, 
; $TMP1, $ERRPC 


TIMEOUT IN ACCESSING THE MER REGISTER 
5 $TMP1, $ERRPC 


;ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST 
TEST #, PC,PATTERN, DATA,PAR, VIRTUAL ADDRESS 
: $TMP1, SERRPC, $GDDAT , $BDDAT , KIPAR2, $BDADR 


; PARITY ABORT OCCURED WITH PARITY ERROR DISABLED 
: $TMP1, SERRPC 


sPARITY ABORT DID NOT OCCUR WITH PARITY ERROR ENABLED 
$3 PC 


;MER DIDN'T HAVE CORRECT ADDRESS BITS 11-17 
STEST #, PC, EXPECTED DATA, RECEIVED DATA 
: $TMP1, $ERRPC, $GDDAT , $BDDAT 


;MER READ EXTENDED ADDRESS BITS HAS FAILED 
TEST @, PC, EXPECTED DATA, RECEIVED DATA 
: $TMP1, $ERRPC, $GDDAT, $BDDAT 


;ERROR IN THE MEMORY 
sTEST #, PC,PATTERN,DATA,PAR, VIRTUAL ADDRESS 


: $TMP1, $ERRPC, $GDDAT , $BDDAT ,KIPAR2, $BDADR 
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SEQ 0038 


1410 002204 024575 —M160 sERROR IN XCSR <6> 
1411 002206 025314 DH1 ;TE . 
1412 002210 026502 DT1 ;$TMP1, SERRPC 
1413 002212 0 
1414 ;1TEM 70 
1415 00221 024617 —EM161 ;NO XMIT INTERRUPTS HAVE OCCURED 
1416 002216 025314 DH1 ;TEST #, 
1417 002 026 DTi ;$TMP1, $ERRPC 
1418 002222 rTen " 
1420 002224 024657 EM162 sNO RECIEVE INTERRUPTS HAVE OCCURED 
1421 002226 025314 DH1 ; ° 
1 0022 026502 DT1 ;$TMP1, $ERRPC 
1423 002232 0 
14 sITEM 72 
1425 002234 024722 —M163 ;UNEXPECTED PARITY ABORT HAS OCCURED 
1 002236 025314 DH1 sTEST #, PC 
i 026 OT1 ;$TMP1, $ERRPC 
1428 002242 0 
1 s1TEM 73 
1430 002244 024766 EM1 ;MER DION’ T HAVE CORRECT ADDRESS BITS O AND 15 
1431 002246 025341 DH4 sTEST#, PC, EXTENDED DATA, RECEIVED DATA 
1432 002 026746 OT75 : $TMP1. $ERRPC, $GDDAT, $BDDAT 
1433 002252 0 
1434 
1435 sITEM 74 
1436 002254 —EM165 ;TOO MANY TRANSIVER INTERRUPTS HAPPENED 
1437 002256 025314 DH1 sTEST #, PC 
1438 002260 026 OT1 ;$TMP1, SERRPC 
1439 002262 0 
1440 ;1TEM 75 
1441 002264 025114 EM166 ;TOO MANY RECEIVER INTERRUPTS HAPPENED 
1442 002266 025314 DH1 sTEST #, PC 
1443 002270 026 OT1 ;$TMP1, $ERRPC 
1444 002272 0 
1445 sitem 76 
1446 002274 025162 em167 ;error in ready bit of csr 
1447 002276 025314 dhi ;test#, pc 
1448 002 026 dti Tomei. barvet 
1449 002302 0 
1450 ;item 77 
1451 002304 025214 emi70 sno character received 
1aat 002 025314 dni ; test#,pc 
1453 002310 026502 dti ;$tmpl, $errpc 
1454 0023 000000 0 
1455 ;item 100 
456 002314 025242 emi7i wong © character received 
page hot za mo 

; $tmp — 
1459 v02322 000000 0 

;item 101 ee i 

1461 002324 025273 emi serror rom size is zero 
1463 903380 O26502 Sti tit or 

;$tmpl,errpc 
1464 002332 0 
1465 
1466 
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a 


1467 

1468 

1469 

1470 

1471 002334 

1472 002336 
73 340 


021 


SEQ 0039 


.SBTTL GLOBAL VARIABLES AND REGISTER NAMES 
;REGISTERS FOR THE FIRST Q22BE 


377 tchar: 


. WORD 0 

.WORD O 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

.word 0 

. WORD 0 

. WORD 0 

.word 0 

S FOR THE SECOND Q22BE 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

.word 0 

.word 0 

. WORD 0 

. WORD 0 

. WORD 0 

. WORD 0 

.BLKW 15. 

. WORD 0 

. WORD 2 

byte -1,21,-1,0 

BCR= 177524 

BOR= 177524 

BCSR= 177520 

CCR= 177746 

HITMIS= 177752 
= 177734 

LKS= 177546 

MAIREG= 177750 

NATREG= 177520 

MER= 172100 

MSER= 177744 

PCR= 7522 

PIR= 177772 

RCSR= 7 


;CONTROL REGISTER 1 FOR Q22BE 
1 CT ote ee REGISTER 2 
;DMA_ ADDRESS FOR Q22BE 


;WORD COUNT REGISTER 

;DMA DATA FOR Q22BE 

;ADDRESS OF VECTOR FOR Q22BE 
;PRIORITY 

;SIMULTANEUOS GO ADDRESS REGISTER 


slocation for the led count smc 
;RECEIVER INTERRUPT COUNT ;MC 
; TRANSMITTER INTERRUPT COUNT ;MC 
;flag for the loop back connector ;mc 


;CONTROL REGISTER 1 FOR Q22BE 
sCONTROL/STATUS REGISTER 2 
;DMA ADDRESS FOR Q22BE 

;WORD COUNT REGISTER 

;DMA DATA FOR Q22BE 


;ADDRESS OF VECTOR FOR Q22BE 
;PRIORITY 


ACTUAL CHECKSUM 


;RESERVED FOR BLOCK MODE TRANSFER 


;PRIORITY 7-4 FOR Q22BE 


;string for the loop back connector test 


ORT ACNOSTICS “ty edema 
/DIAGNOSTICS DISPLAY 
:00T /DIAGNOSTICS STATUS 
ONTROL REGISTER 
SHIT OR MISS REGISTER 
; UNIBUS Cone TOBA TIN REGISTER 
CLOCK STATUS REGISTER 
ENANCE REGISTER 
;NATIVE REGISTER 
ERROR REGISTER 


;MEMOR 
py SYSTEM ERROR 
; PAGE phe REGISTER 


; PROGRAM INTERRUPT REQUEST 
;RECEIVER STATUS REGISTER 











B4 
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SEQ 0040 
GLOBAL VARIABLES AND REGISTER NAMES 
1523 177562 = 177562 ;RECEIVER DATA F 
1 177564 XCSR= 177564 TRANSMITTER STATUS REGISTER 
1525 17 = 177566 ; TRANSMITT a F 
1526 176500 RCSR1i= 176500 ;RECEIVER STATUS REGISTER 
1527 176502 1 176502 sRECEIVER FER 
1528 176504 XCSR1= 176504 TRANSMITTER STATUS REGISTER 
+383 176506 XBUF 1= 176506 ; TRANSMITTER DATA BUFFER 
1533 177766 CPEREG= 177766 ;CPU ERROR REGISTER 
1533 177572 MMRO=SRO ;MEMORY MANAGEMENT REG. 0 
1534 177574 MMR1=SR1 ; MEMORY G. 1 
1535 177576 MMR2=SR2 ;MEMORY MANAGEMENT REG. 2 
1536 172516 MMR3=SR3 ;MEMORY MANAGEMENT REG. 3 
1537 1 POLY= 120001 
1538 NULL = 
1539 100000 begrom = 100000 
1541 .SBTTL GLOBAL DATA SECTION 
1343 
3;** 
1544 ; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
1545 ; IN MORE THAN ONE TEST. 
1546 - 
1547 


1548 ; THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 

1549 ;WHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
iFROM THE DEF AULT RESPONCE. 

1552 003012 000000 SLOCO1: JA 

jTHESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE WORKING DATA 


1555 003014 000000 WORD 0 ;LOCATION TO SAVE PATTERN USED IN PARITY TEST 
1556 003016 000000 SAVTIM: .WORD 0 ;LOCATION TO THE SAVE THE TIMEOUT TRAP 
1557 003020 000000 LOWADD: .WORD 0 ;STORES LOW ADDRESS FOR RAM TESTS 
1558 003022 000000 GOODAD: .WORD 0 ;STORES GOOD ADDRESS FOR RAM TESTS 
1559 003024 000000 -WORD O ; CONTAINS TOTAL EEROM ERRORS 

3026 000000 TSTADD: .WORD 0 ;ADDRESS STORE FOR RAM TESTS 
1561 003030 000000 -WORD O ;ADDRESS STORE FOR RAM TES 
562 003032 000000 FLAG -WORD O ;USED TO STORE “FLAG” CONDITIONS 
1563 003034 000000 CCHPAS: .WORD 0 ; fleg-counter for control of Cache subtests 
564 003036 000000 .WORD 0 ; flag-counter for control of EEROM subtest 
1565 003040 000000 SAVSUP: .WORD 0 ; USED STORE SOR STACK VALUE 
566 003042 000000 SAVUSE: .WORD 0 ;USED TO STORE USER ST VAL 
1567 003044 000000 SAVMRO: .WORD 0 ;USED TO STORE MMU STA STER O DATA 

000000 SAVMR1: .WORD 0 ;USED TO STORE MMU STA GISTER 1 DATA 

156 3050 000000 SAVMR2: .WORD 90 ;USED TO STORE MMU STATUS REGISTER 2 DATA 
1570 003052 000000 SAVSWR: .WORD 0 ; SAVE SFTWRE CH REG 
1571 003054 000000 MERTAG: .WORD 0 ; 
S72 003056 FLOAT: .BLKW 4 ;USED TO STORE VALUES FOR MMU TESTS 

3066 FLO: -BLKW 4 ;USED TO STORE VALUES FOR MMU TESTS 
1574 003076 000000 SEQ -WORD O ;STORES SEQUENCE NUMBER FOR JUMP TESTS 
1575 003100 000000 SPS: -WORD 0 ;STORES STACK POINTER FOR JUMP TESTS 
1576 003102 000000 SPSJ: .WORD 0 sSTORES STACK POINTER FOR JUMP TESTS 
1577 003104 BTEXP: .BLKW 4 ; STORES ING BIT TESTS 
1578 003114 BTRES: .BLKW 4 ;STORES RECIEVED DATA FOR BIT TESTS 
1579 003124 000000 COUNT: .WORD 0 ;ERROR INDICATOR FOR FLOATING POINT TESTS 








1580 003126 
1581 003136 
roa 003146 


584 
1585 003156 
586 003160 


1589 003162 
res 003164 


92 
1593 003166 
1594 003170 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 09-Apr-86 09:43 Page 15-8 
GLOBAL DATA SECTION 


SEQ 0041 


RECFEC: .BLKW 4 ;sRECIEVED FLOATING POINT EXCEPTION CODE 
RECST: .BLKW 4 ;sRECIEVED FLOATING POINT STATUS 
RECDST: .BLKW 4 }DESTINATION ADORESS FOR FLOATING POINT TESTS 


jIHese LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
LOOPIN: .WORD 0 
SOME MORE TEMPORARY STORAGE FOR RAM TESTS 


AVPCS: .WORD ;STORES TEMPORARY BIT POSITIONS Aa. RAM TESTS 
MASK:  .WORD “ ;STORES BIT MASK FOR ERROR ISOLATION 


co= 

ACi= #1 

AC2= #2 

AC3= #3 

AC4= #4 

ACS= #5 

AC6= #6 

AC7= #7 

;FPP INTERRUPT VECTOR 
FPVEC=244 
STBOT= 1000 


TABI: 
TABe: 
TABS: 
TAB4: 
TABS: 


TABSA: 


SSSESSSSSSSSSSSSSSSNREES 








U4 


CCKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 09-Apr-86 09:43 Page 13-9 





SEQ 0042 
GLOBAL DATA SECTION 
1638 003320 000000 TAB6: .WORD O 
1639 003322 000000 "WORD 0 
1640 003324 000000 "WORD O 
1641 003326 000000 "WORD O 
1642 003330 047050 TAB6A: [WORD 47050 
1643 003332 010000 "WORD 10000 
003334 "WORD 0 
1645 003336 000000 "WORD 0 
3340 000200 TAB7: [WORD 200 
1647 003342 000000 "WORD O 
3344 000000 "WORD O 
1649 003346 000000 "WORD 0 
1650 003350 000200 TAB8: :WORD 200 
1651 003352 000000 "WORD 0 
1652 003354 "WORD O 
1653 003356 000001 "WORD 1 
1654 003360 000400 000000 000000 TAB9: .WORD 400,0,0,0 
003366 000000 
1655 003370 030000 TAB10: .WORD 30000 
56 003372 003000 "WORD 3000 
1657 003374 "WORD O 
003376 000000 "WORD O 
1659 003400 016400 TAB11: .WORD 16400 
660 003402 000000 "WORD 0 
1661 003404 000000 "WORD 0 
1662 003406 000000 "WORD 0 
1663 003410 030000 003000 000002 TABLIA: .WORD 30000,3000,2,0 
003416 000000 
1664 003420 016100 000000 000000 TAB12: .WORD 16100,0,0,1 
003426 000001 
1665 003430 016200 TAB13: .WORD 16200 
666 003432 000000 "WORD O 
1667 003434 000000 "WORD 0 
003436 000001 "WORD 1 
1669 003440 030000 003000 000000 TAB13B: .WORD 30000,3000,0,140000 
003446 140000 
1670 003450 030000 TAB14: .WORD 30000 
1671 003452 000000 "WORD O 
1672 003454 000000 "WORD 0 
1673 003456 000000 “WORD 0 
1674 003460 024700 TAB1S: .WORD 24700 
1675 003462 000000 "WORD O 
1676 003464 000000 "WORD O 
1677 003466 000000 "WORD O 
1678 003470 025000 TABI6: .WORD 
1679 003472 175363 "WORD 175363 
1680 003474 123456 "WORD 123456 
1681 003476 123456 "WORD 123456 
003500 TAB17: .WORD 30000 
1683 003502 007020 "WORD 7020 
1684 003504 000000 000000 "WORD 0,0 
1685 003510 023456 TABI8: WORD 23456 
1686 003512 000000 "WORD 0 
1687 003514 "WORD 0 
1688 003516 000001 "WORD 1 
"WORD  100200,0,0,0 


9 003520 100200 000000 000000 TAB21: 
003526 000000 


E4 


1690 003530 
003536 

1691 003540 
546 

1692 ores 
1693 003560 
1694 003570 
003576 

1695 003600 
3606 


1702 003660 
1703 pas 9 Lh 
1704 yan The 
1705 003710 
003716 

1706 003720 
003726 

1707 003730 
1708 003740 
003746 

1709 003750 
1710 poe Th 
1711 poe Ua 
1712 004000 
1713 004010 
004016 

1714 004920 
226 





100400 


000000 
177777 
177777 
177777 
124242 
000000 
124242 
000000 


TAB2e: 
TAB23: 
TAB24: 
TAB2S: 
TAB26: 
TAB27: 
TAB28 : 
TAB29: 


TAB29A: 


TAB30: 
TAB31: 
TABS2: 
TABS3: 
TAB34: 


TAB47A: 


SEESSEEEEESSEEE EEEEEEESS 
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100400,0,0,0 
200,0,0,1 
62400,0,0,0 
1100,0,0,0 
100600,0,0,0 
1000,0,0,0 
600,0,0,0 
10100,0,0,0 
10100,0,2000,0 


500,0,0,0 

100400 ,0,0,0 

16000 ,0,0,0 

11600,0,0,0 

640,0,0,0 

77600 ,0,0,0 
100200,0,0,1 

340,0,0,0 

77177777 177777 ,177776 
$77,-1,-1.-1 

577,-1,0,0 

173737 , 124242 ,0S2525 , 12346 
0,0,052525, 12346 

173737 ,124242,0,0 
600,0,0,0 


555555 





SEQ 0043 





F4 
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1731 


004146 
000040 
177777 
000100 


177777 


000042 
000030 
000032 


004146 
004150 


SEQ 0044 
AT .WORD 0 
FSTADD -WORD 0O 
LSTADD -WORD QO 
CURADD -WORD QO 
PARABT .WORD 0 ;PARIY ABORT FLAG 


PRIORITY 
;; FIRST TIME THROUGH 


TST ? 
* BNE vHKOR i; BRANCH IF BEEN HERE ALREADY 
BIT #BITS,ae52 :; ARE WE IN UFD MODE ? 
BEQ VHICOR +; LEAVE IF -NOT 
MOV gs 3; SET UFD FLAG 
BIT parte, :; ARE WE IN QUIET MODE ? 
BEQ 1 33 IF NOT 
MOV #-1,UQUIET ;; SET QUIET 
1s: EMT 42 :; GET ADDRESS OF XXDP DCA TABLE 
CLR 42(RO) :; CLR XXDP+ “DR 
MOV 30, SAV30 +; SAVE EMULATOR ADDRESS 
MOV 32. SAV32 :; SAVE EMULATOR PRIORITY LEVEL 
BR VMKOR ;; GET AROUND TAG AREA 
SAV30: .WORD 33 PUT TOR INFO 
SAV32: .WORD :; PUT PRIORITY LOCATION HERE 
UFDFLG: .WORD 0 :; USER FRIENDLY MODE FLAG 
UQUIET “WORD ;; UFD QUIET MODE FLAG 


5 eR ERAEERERERAR ARREARS EEEESAEESERE EASES EEE SESESEREEESESS ESS EES 


i$: 
-SBTTL INITIALIZE THE COMMON T 
;;CLEAR THE COMMON TAGS ($CMTAG) AREA 
MO #$CMTAG .R6 ey LOCATION TO BE CLEARED 
CLR (R6)-+ ;;CLEAR MEMORY LOCATION 
CMP #SWR,.R6 ;;DONE? 
> ee ; ;LO0P 


BACK IF NO 
MOV #STACK ::SETUP THE STACK POINTER 
; ;INITIALIZE A FEW oectoRS 


MOV S$SCOPE.@SIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
MOV #340, @6LOTVEC+2 ;;LEVEL 7 
MOV SSERROR. ASEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
MOV $340, ABEMTVEC+2 33h 
MOV SSTRAP. @STRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
MOV 0340 96 @STRAPVEC+2;LEVEL 7 
MOV aePWRVEC POWER FAILURE VECTOR 
MOV 340, Q9PMRVEC 2 $3 
MOV poe CE TUP END-OF -PROGRAM COUNTER 
CLR ; ;INITIALIZE NUMBER OF ITERATIONS 
CLR SL CAPE ;=CLEAR THE ESCAPE ON ADDRE 
MOVB «#1, $ERMAX ; ;ALLOW ONE ERROR PER TEST 
MOV #., $LPADR ‘INITIALIZE THE LOOP ADORESS FOR SCOPE 
MOV #.' SLPERR ; SETUP ADDRESS 

SIZE FOR A RE SWITCH REGISTER. IF NOT FOUND OR IT IS 

;;EQUAL TO A "-1", SETUP FOR A SOFT SWITCH REGISTER. 
MOV @SERRVEC,-(SP) ;;SAVE CT 
MOV #300008, UP ERROR VECTOR 
MOV —«s #DSWR. SUR up dae’ A HARDWARE SWICH REGISTER 
MOV #DDISP , DISPLAY Hh wt HARDWARE DISPLAY REGISTER 





INITIALIZE THE 


004344 
004352 


1740 504 
1741 004512 
1742 004514 
1743 


COKDDBO KDJ11-DA CLUSTER DIAG. 


COMMON TAGS 


022777 
001012 


000403 
112737 


000240 
123727 
001020 
013700 
005700 
001420 


042700 
000241 
006000 


006000 
006000 
006000 
005700 
001413 
010037 
000413 
012737 
000407 
012737 


177777 


003034 
177777 
000001 
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174566 


000176 


001134 


000001 


30000$ : 
30001$: 
30002$: 


30003 : 


- SBTTL 


30004$: 
30005$: 


eS SD 


SEQ 0045 


CMP #-1,aSWR ;;TRY TO REFERENCE HARDWARE S 

BNE 30002$ 1 BRANCH IF NO TIMEOUT TRAP BecunneD 
;;AND THE HARDWARE SWR IS NOT = -1 

BR 30001$ ;;BRANCH IF NO TIMEOUT 

MOV $30001$, (SP) :;SET UP FOR TRAP RETURN 

MOV #SWREG, SWR ;;POINT TO SOFTWARE SWR 

MOV #DISPREG, DISPLAY 

MOV (SP)+,Q@ERRVEC ;;RESTORE ERROR VECTOR 

CLR $PASS ;;CLEAR PASS C 

BITB # #APTSIZE,$ENVM ;;TEST USER SIZE UNDER AP 

BEQ ;;YES,USE NON-APT SWITCH 

MOV 3$SWREG, SWR :;NO,USE APT SWITCH REGISTER 

MOV UFDFLG,UQUIET ;ABORT IN UFD ON ERROR 

MOV STOUT. ABERRVEC ;POINT TO TIMEOUT ROUT INE 

MOV $340, @GERRVEC+2 ;AT PRIORITY 

MOV SRAMPAR, 94114 | ;POINT PARITY. ABORT 

MOV #340, 00116 :AT PRIORITY 

MOV aMMUTRP,@#250  ;POINT MMU TRAP VECTOR 

MOV #340, a#252 

CLR a#177766 ‘CLEAR CPU ERROR REGISTER 

BIT #B1T06, av52 ;IN UFD QUIET MODE ? 

BNE :IF 50, SKIP PRINTOUT 


YPE SWTSEL ; 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


TST ;;ARE WE RUNNING UNDER XXDP/ACT? 
BNE 30004$ + EE IF YES 
CMPB SENV, #1 WE ae oy UNDER APT? 
BEQ 30004 $ ; ;BRANCH IF YE 
CMP SWR , #SWREG a SUTTCH REG SELECTED? 
BNE 30005$ ; BRANCH IF NO 
GTSWR ;;GET SOFT-SWR SETTINGS 
BR 30005$§ 
MOVB #1, $AUTOB ;;SET AUTO-MODE INDICATOR 
NOP ; — 2 
CMPB SENV, #1 ; nenise a APT? 
BNE 20$ ; nt no-APT initialization 
MOV $USWR ,RO : copy pass calculation 
TST RO ; ee = 0 default value 
BEQ 25$ ; setup default value 
BIC #17,RO ; clear low order nibble 
CLC ; assure no unknowns 
ROR RO ; 4 rotates = divide 
ROR RO ; 16 (=pass time) 
ain ; +h area Rapin nn bang 
; Wi general purpose 
TST RO ; divide, this test to 
BEQ 30$ ; determine skip altogether 
MOV RO,CCHPAS ;residue = no. of desired passes 
BR continue on 
ad #-1,CCHPAS ; largest number no apt mode?? 
MOV #1,CCHPAS ; normal defeult = 1 





1765 004650 
1766 


1782 
+185 004766 


004774 


000403 
012737 
000240 


104401 
000431 


004737 


122737 
001001 
000451 


SWITCH REGISTER 


000000 003034 


000010 177750 


004700 


004776 


027546 


000001 001220 
001206 


002362 
005120 


000131 
000001 002362 


35$ 
#0, CCHPAS 
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GET VALUE FOR SOFTWARE 


SEQ 0046 


; no cache ae included 


; debug aid 
; BIT #B1T07 ,a#¢52 ;UFD MODE? 
; BNE LOOP ;IF YES, BRANCH 


stat Rite bitin enol teh ie teckel ;;;HALT ON ERROR JUMPER 


BR 
30$: MOV 
35$: nop 

BIT 

BEQ 

TYPE 
bidoes . 

$: 

BR 
99%: 

TYPE 

BR 
kizeasee' 
1000$: JSR 
LOOP: CMPB 

BNE 

Br 
3000$: TST 

BEQ 

Br 
2000$: 

clr 

T 

BR 
sizeese 

10$: 

rdch 

cmp 

bne 

Mov 
i$: 


#BITO3 ,MAIREG 
99$ 

. 30007 $ 
30006 $ 
-ASCIZ 


1000$ 


30009 $ 


+s ie ASCIZ STRING 
VER THE ASCIZ 


0 
615><12>4RAP ON HALT IS ENABLED, JUMPER IS NOT INSTALLED/<15><12> 


3; TYPE +e STRING 
OVER THE ASCIZ 


; GET 
0008s cis><iz>tiBaP ONTHALT IS DISABLED, JUMPER IS INSTALLED/<15><12> 


PC ,Q22SIZ 
#APTENV , SENV 
3000$ 

TST1 


$PASS 
2000$ 
TST1 


1 
‘300118 
30010$ 
. ASCIZ 


fy, %-<ap? 
#1, lopbak 


;;GET OVER THE ASCIZ 
¢15><12><12>/IF LOOP BACK CONNECTOR INSTALLED TYPE: 


;SIZE FOR Q22BE 


;ARE WE IN APT MODE? 
;IF NOT: DO THIS TEST 


33 to test i 
” ; under APT 


;FIRST PASS?? 
; IF » DO IT 


+:g°O to Sout i 


loop back fl 
5 TYPE nsciz" STRING ™ 


¥/<15><12><12> 


;read the _ character 
sis it og 

7no loop 

siaee be back prinetalled. Flag it. 











010000 


160000 
177520 


000177 
000177 


172100 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesda 
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173710 


003016 


177520 


177520 
177520 
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SEQ 0047 
.SBTTL TEST - NATIVE REGISTER 
NATIVE REGISTER TEST ——— 
; This test game out the native register's existance and it's 
; various bits 
; BGNTST 
; Set up timeout vector PC to TIMOUT 
; Set up timeout vector PSW to 7 
; Read the Native register 
; Check out the bootstrap switch as read only 
; Check out the module functional revision a read only 
; Check out that the self-test enable bit works 
; Check out he indicators (i.e LEDS) 
; ENDTST 
; TIMOUT: Clean stack 
: Error NATIVE register timed out 
sNATIVE REGISTER TEST 
jpssenenenasenscenscnsonssensenssnsssnssnssnassasenssnssnssnsonse 
BIT #B1T12,3SWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ HEN TYPE TEST TRACE 
TYPE 30013% : TYPE ASCIZ STRING 
BR 12$ et 0 THE ASCIZ 
Eo a -ASCIZ <15><12>/TEST 1 - NATIVE REGISTER TEST/ 
1000$: 
MOV ae4 , SAVTIM ; SAVE UNEXPECTED TIMEOUT TRAP 
MOV #100$ ,ae4 > SET UP TIMEOUT TRAP 
MOV #340 , 286 3 
MOV NATREG, RO : READ THE NATIVE REGISTER 
; CHECK BITS 15-13 READ ONLY 
, BIS  #160000,NATREG ,; TRY TO WRITE TO THE FUN REV BITS 
MOV NATREG, Ri ; READ THE NATIVE REGISTER AGAIN 
CMP RO, ; IF IT CHANGED 
BEQ 10$ ; ERROR IN NATIVE REGISTER 
ERROR +47 : 
BR 110$ ; 
: 
; CHECK THE INDICATOR BITS 
ios: BIC 177,NATREG ; CLEAR THE INDICATOR BITS 
on ie aia ; IF THE BITS DIDN'T CLEAR 
is 
ERROR +50 ERROR = N THE NATIVE Resists 
CLR MER + €LEAR MER AFTER REPORTING THE ERROR ;MC 
20$: MOV #1,R1 ; START PATTERN IN , os BIT 
MOV #7,R2 ; SET LOOP COUNT TO 7 








1866 005406 
1867 005406 


005037 
013737 


177520 
177520 


172100 
003016 


177520 


177520 


25$: 


BIS R1,NATREG 
BIT R11 NATREG 
BNE 30$ 
ERROR +50 
BR 110$ 
30$ ASL R1 
SOB R2,25$ 
BIC #177,NATREG 
; CHECK THE BOOT SWITCH TO BE READ ONLY 
MOV NATREG ,RO 
BIS #7400, NATREG 
MOV NATREG,R1 
CMP R1,RO 
BEQ 110$ 
+51 
BR 110$ 
100$: ERROR +52 
CMP (SP)+,(SP)+ 
110$: CLR MER 
MOV SAVTIM, a4 
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TEST - NATIVE REGISTER 


oa aE 


FOR ALL BITS THE ARE INDICATOR DO 
: SET THE BI 

: CHECK THAT IT GOT SET 

: IF NOT THEN 

: ERROR IN THE INDICATOR BITS 

: SHIFT PATTERN TO NEXT BIT 


ENDF OR 
CLEAR THE INDICATORS 


AD THE NATIVE REGISTER 


SEQ 0046 


RE 
TRY ba TO THE BOOT SELECT SWITCH 


READ IT AGA 
IF THE BITS 
ERROR 


= IN THE NATIVE REGISTER 


CHANGED THEN 
IN THE NATIVE REGISTER 


CLEAR MER AFTER REPORTING THE ERROR ;MC 
RESTORE UNEXPECTED TIMEOUT sMC 





TEST 


IK4 


1892 
893 


1906 


1933 005710 
1934 7 
ieee 005716 


1 

1937 005720 
1938 005726 
1939 

1940 005732 
1941 

1942 005734 
1943 005736 
1944 





012737 
012737 


013737 


02002 
103405 


062737 
012700 
077212 


005701 
001414 


010000 
005522 


006016 
000340 


172100 
003016 
177572 
000200 


120000 


000200 
100000 


173426 


000250 
000252 


177520 


172350 


- SBTTL 


TEST 
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- 16 BIT ROM CHECKSUM TEST 


- 16 BIT ROM CHECKSUM TEST 
;ROM'S CHECKSUMS : 


516 BIT ROM TEST 





SEQ 0049 


F. s KKK AKAKRASAAAREREEE SEERA EEE SEERA EEE EESESEE SESE ESESS 
OPE 


TSTe: Sc 
BIT #BIT12,3SWR . IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ TYPE TEST TRACE 
TYPE , 30015$ 3; TYPE ASCIZ STRING 
BR 30014$ OVER THE ASCIZ 
; ;30015$ "ASCIZ <15><12>/TEST 2 - KDJ11-D ROM CHECKSUM TEST/ 
30014$: 
1000$ 
;set trap catcher for 250 for aborts 
MOV émmuerr ,2#250 
MOv #340 , #252 
;set up location 4 
Mov a#4 ,savtim ;save unexpected ingest trap 
MOV #timerr ,O#4 ;set up the timeout trap 
MOV #360 , 9¢6 
er Os ito? oe atrnat enabl the nati t 
is ; e rom in native ister 
Mov a17 74000, ok ipant ;rom ins at pa= 17 400 400 008 
clr ri sinit temporary checksum 
MOV #begrom, r0 re a peptenng of rom 
mov (rO),r2 cag the so ef of words covered 
;is oe nore re ? 
bne 20$ No 
error +101 ;yes error in rom size 
clr mer 
mov savtim, a34 
clr a¥tsr0 
bic #bit07 ,d?natreg ;disable the rom 
Br TST3 ;3go to the next test 
20$: add CrO)+,r1 ;accumulate m. checksum 
cmp rO, Sbegrom+ +20000 fini the 4kw bank ? 
blo 30$ ;No 
add #200 , B#k i par4 ;syes bump address by 4 kw 
Mov #begrom, r0 ;get address of beginning of rom 
30$: sob r2,20$ suntil all words are checked 
tst ri ;is the checksum correst ? 
beq 40$ s;yes, go to the next test 





L4 
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TEST - 16 BIT ROM CHECKSUM TEST 
1945 
1946 0057 1 
1947 005742 37 172100 
1948 005746 013737 003016 
1949 005754 37 177572 
1950 0057 042737 000200 
1951 005766 
1952 
1953 
1954 
1955 
1956 005770 
ee 
1959 005770 7 172100 
1960 005774 013737 003016 
1961 005037 177572 
1962 042737 000200 
1963 006014 
1964 
1965 
1966 
1967 
1968 
1969 006016 042737 000200 
1970 005037 177572 
1971 006030 104002 
tor8 006032 022626 
1973 006034 37 172100 
1974 006040 013737 0035016 
1975 006046 15 
1976 
1977 
1978 
1979 
1980 006050 
1981 006050 104041 
1 006052 005037 172100 
1 006056 022626 
1984 006060 042737 000200 
1985 006066 005037 177572 
1 006072 013737 003016 
1987 006100 
1988 
1989 
19290 
1991 


177520 


177520 


177520 


;handle 


mmuerr : 


+4 
mer 
savtim, d#4 


avsr 
#b i tO7,a#natreg 
TST3 


mer 
savtim, #4 


ats 
#b i tO7, atnatreg 
TST3 


250 

#b i t07, d#natreg 
atsrO 
(sp)+,(sp)-+ 

mer 

savtim, a4 
TST3 
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33g0 to 


3390 to 


33go to 


ino, rom checksum error 


;disable the rom 
the next test 


send of test 


;disable the rom 
the next test 


;disable the rom 


;mmu error 


the next test 


;clear. stack 
;disable the rom 


3:g0 to the next test 





SEQ 0050 





i14 
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TEST - KDJ11-DA DATA PATHS 


000004 
032777 
001425 
104401 
000422 


013737 


062701 
012702 


000401 
077220 


010000 
006122 


177776 
172100 


003016 


173026 


.SSTTL TEST - KDJ11-DA DATA PATHS 
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SEQ 0051 


SSSSeSSSSSSSSSSSSSSSSSSSSSSSSSSSSFSE SSS HS SSH se Hee eeeeseeeeeeereeervee 


; DATA PATH TEST 


5$: 


10$: 
15$: 


BGNTST 


Set Timeout trap to TIMOUT 
Set timeout priority to 7 
Read location 0 


FOR pattern 


:= first to last 


Write wre 


Read pattern 


This test checks ovt the data and address paths on the KDJ11-D 
Board. The patterns used will be: 


IF Pattern read <> Pattern Written THEN 
ERROR 


oo 


“ASCIZ 


ae4,SAViIM 
$1008 , a 


t 
' 


PC,R1 

@PATT-..R1 

#7 ,R2 

(R1),a@#0 

aeo, (R1)- 
$BDDAT 

9 eCRID. SGDDAT 

+44 

MER 

15$ 

R2,5$ 

SAVTIM, av4 


;DATA PATH TESTS 
re ce ee 


IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
; TYPE TEST TRACE 
;;TYPE ASCIZ STRING 


; ;GET 
<15><12>/TEST 3 - KDJ11-D DATA PATH TEST/ 


SAVE UNEXPECTED TIMEOUT TRAP ;MC 
SET UP THE TIMEOUT TRAP 


READ LOCATION 0 

GET A POINTER TO THE PATTERNS 
SET THE LOOP COUNT TO 7 

es * L OF THE PA ne 


: THEN 
GET READ DATA 
: GET EXPECTED DATA 
ERROR IN THE DATA «ky 
CLR_MER AFTER ERROR REPORTING ;MC 


ENDF OR 
END TEST 
RESTORE UNEXPECTED TIMEOUT TRAP 








a 
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2046 006274 
2047 


000422 


012737 


104045 
005037 


022626 
013737 
000407 


TST4 


; TIMEOUT ROUTINE 


006306 000004 100%: 
172100 102$: 
003016 000004 


PATT: 


MOV 


ERROR 
CLR 


obese 


#102$ ,O#4 


+45 
MER 


(SP)+,(SP)+ 
SAVTIM, a%4 
TST4 

0 

177777 
177400 
170360 
007417 
052525 
125252 


;;GO TO THE NEXT TEST 


; CLEAN STACK 


STORE 


;;GO TO THE NEXT TES 


UNEXPECTED TIMEOUT TRAP 


OF ee oe 


uw 





$$ $$$ 
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TEST - MEMORY ACCESSABILITY 


SEQ 0053 


go?) .SBTTL TEST - MEMORY ACCESSABILITY 
ora ;ACCESSIBILITY TEST 
3 
2075 ; This test will check the accessibility of each address of memory 
2076 ; on the KDJ11-D Board. IF a aenery address tr out then an error 
2077 ; will be flagged. A side effect of this test ld be that all memory 
2078 ; is cleared 
2079 ; 
2080 ; BGNTST 
2081 ; Set timeout trap to TIMOUT 
2082 : Set timeout tht BM 
2083 ; For MSB_Addre := te 1777777 DO 
2084 ; Contents of address := 
2085 ; Go to the next test 
2086 : 
2087 ; TIMOUT: 
2088 ; Error Address should not have timed out 
2089 ; ENDTST 
2090 ; 
$092 Pe ee ee 
2093 5 RRR RREERREREREREEER ARE EREAEREREE EEE REESE ERE SESE ESE EEE EEE ES 
006342 000004 +814: SCOPE 
2094 006 032777 010000 172566 BIT #B1IT12,@SWR ; IF BIT i2 +s SET IN SOFTWARE SWITCH REGISTER 
2095 006352 001426 BEQ 1000$ : TYPE TEST TRACE 
2096 006354 104401 006362 TYPE 30019$ 3;TYPE ASCIZ STRING 
006 000423 BR 18$ 1st GET OV ER THE ASCIZ 
genes .ASCIZ <15><12>/TEST 4 MEMORY ACCESSIBILITY TEST/ 
006430 18 
2097 006430 1000$ 
006430 013737 903016 MOV a¢4 ,SAVTIM ; SAVE TIMEOUT 
006436 012737 006534 «00004 MOV #100$ ,a04 ; SET UP THE TIMEOUT TRAP 
100 012737 > 900006 MOV #340 , 086 : 
2101 006452 004737 030676 JSR PC, SETMMU ; GO SET UP THE MMU REGISTERS 
2102 006456 012701 MOV Ri ; WE WANT TO MAP THRU PAGE 2 
2103 006462 012737 001600 172344 MOV — #1600, @@KIPAR2 ; SET UP KPAR 
2104 006470 i$: ; FOR 160000 e 
2105 006470 142721 000377 BICB #377,CR1)+ ; : CLEAR OUT A BYTE 
2106 006474 020127 060000 CMP Ri, #60000 ; : IF WE HAVE PASSED THE PAGE BOUNDARY 
2107 006500 103773 BLO i$ ; : : THEN 
2108 006502 737 000200 172344 ADD #200 , AOKIPAR2] : POINT KPAR2 TO A NEW PAGE 
2109 006510 012701 040000 MOV Ri ; : SET THE VIRTUAL ADDRESS TO PAGE 2 
2110 006514 023727 172344 020000 CMP AHKIPAR2 , #20000 ; : ENDIF 
Sta 006522 001362 BNE i$ ; 
2113 006524 013737 003016 000004 10%: MOV SAVTIM, a¢4 i : 
2114 006532 000416 BR TSTS ;;GO TO THE NEXT TEST 
3 006534 20$: 
: 
2117 ; TIMEOUT ROUTINE 
si19 ' 
2120 006534 012737 006552 000004 100$: MOV #102$ ,a¢4 
2121 006542 005301 DEC ny ; 
2i22 006544 104046 +46 ; REPORT ERROR 
006 005037 172100 CLR MER 


el — 
OT ee 
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TEST - MEMORY ACCESSABILITY see oom 
2124 006552 022626 102$: CMP (SP)+,(SP)« ; CLEAN STACK 
5155 006554 005037 177572 CLR ae | 
5156 006560 013737 003016 000004 MOV SAVTIM, a4 RESTORE TIMEOUT 
2127 006566 000400 BR TST5 5;GO TO THE NEXT TEST 





2161 
2162 006714 


2178 007010 
2179 007012 
2180 


2181 
2182 007016 


010000 
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172340 


177776 
001220 


172100 


172100 
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SEQ 0055 


.SBTTL TEST - MEMORY ERROR REGISTER 


BSSSSSSSHSSHSSOSSSSSSS SSS SOSH GHOSE H SOSH SHO HO OHHH SOSH SOOO HI OOOO OODOOS 


‘MEMORY ERROR REGISTER 
This test will check the MEMORY ERROR REGISTER on the KDUJ11-D 
. rT “ 


; 
; BGNTST 

; Setup timeout VECTOR PC to TIMOUT 

; Setup timeout VECTOR Priority to 7 

; Setup Parity abort VECTOR to PARINT 

; Setup Parity abort VECTOR Priority to 7 
; Do a bus reset 

; Read the Memory Error Register (17772100) 
; Make sure that the register bits are in the right state 
; _ Check all R/W bits 
; ENDTST 
; 


; 
TT TTT TTT TTT TTT TTT TTT TT eet tte te 2 eee 
: S 


TST5 COPE 
BIT #B1T12,aSWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ ; THEN TYPE TEST TRACE 
TYPE 30021$ :;TYPE ASCIZ STRING 
BR 20$ ;:GET OVER THE ASCIZ 
jp 300218 "ASCIZ <15><12>/TEST 5 - MEMORY ERROR REGISTER TEST/ 
10008 : 
clr parabt ae ge gh Mire. ccccnes mc 
mov #340, 0177776 ;set 5 alae mc 
#APTENV, $ ;ARE WE IN APT MODE? 
BNE 001$ :IF NOT: DO THIS TEST 
TST $PASS -FIRST PASS? 
BEQ 1001$ ; YES THEN PROCEED 
JMP PAREND ; NO THEN GO TO THE NEXT TEST 
1001$: MOV ae4, SAVTIM ; SAVE UNEXPECTED TIMEOUT TRAP 
MOV #100$, ; SET UP THE TIMEOUT TRAP 
MOV #340, : 
MOV ae114,-(SP) ; SAVE VECTOR 
MOV 16,-(SP) ; SAVE PRIORITY 
MOV #PARINT , #114 ; 
MOV ati 3 
CLR ; READ THE MER 
MOV BeMER , RO : 
; 
; CHECK OUT THE MER “ALWAYS READ AS 0” BITS 
: 
BIS #30032 ,MER ; TRY TO WRITE THE STUCK AT O BITS 
MOV MER,R1 ; READ T 
CMP RO,R1 ; IF THE STUCK AT 0 BITS CHANGED 
BEQ 10$ a 
+55 ; +: ERROR IN THE MER 
CLR MER i, ENDIF 
; CHECK THAT BITS 0,2,14,15 ARE CLEARED ON RESET 
; 
i10$: 61S #140005 ,MER ; SET ALL THE R/W BITS ON THE BOARD 








2229 007174 


013700 
00 


COKDOBO KDJ11-DA CLUSTER DIAG. 

TEST - MEMORY ERROR REGISTER 

2183 007024 
030 


172100 
037772 
140005 


172100 
001126 
140005 


172100 
140005 


172100 


003054 


004056 
004056 
172100 


000001 


003054 


MACRO V0O5.03 


001124 


172100 


172344 


172100 
172100 


172100 


172100 


15$: 


; CHECK 


WRITE 


} MAKE SURE NO PARITY ABORT OCCURS WHEN PARITY ERRORS ARE DISABLED 
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READ THE MER 

MASK OUT ALL THE BITS 

IF THE R/W BITS DID NOT GET SE? THEN 
ERROR IN THE MER 


UNWANTED 


GET RECIEVED DATA 
GET EXPECTED DATA 
REPORT ERROR 


DO RESET 
MAKE 


SURE 
IF NOT THEN ERROR 


WRITE WRONG PARITY AND PARITY ERROR ENABLE BITS 


MOV MER ,RO 

BIC #37772,RO 
CMP RO, #140005 
BEQ 15$ 

CLR MER 

MOV RO, $BDDAT 
MOV #140005, $GDDAT 
ERROR +56 

CLR MER 

RESET 

BIT #140005 ,MER 
BEQ 20$ 

E +57 

CLR MER 

OUT THE 

JSR PC, SETMMU 
MOV #17600, @@KIPAR2 
MOV #57776,R1 
BIC #B ITO, BOME 
BIS #B1T2, 2OMER 
WRONG PARITY TO LOCATION 1777776 
CLR CR1) 

BIC $B1T2,aeMER 
TST (R1) 

TST MERTAG 

NOP 

TST PARABT 

BEQ 25$ 

CLR PARABT 
ERROR + 

CLR 


SEQ 0056 


THE APPROPIATE BITS GET CLEARED 


SET UP _KPAR2 

POINT TO LAST VIRTUAL ADDRESS IN PAGE 2 
ITY ERROR ENABLE 

SET WRITE WRONG PARITY 


CLEAR PAR 


WRITE WRONG PARITY TO THAT LOCATION 
ARITY 


CLEAR WRITE WRONG P 


READ THE ADDRESS BACK 


SHOULD 
NOT GET 


PARITY ABORT 


IF_WE GOT A PARITY ABORT 
: CLEAR THE ABORT FLAG 
FLAG THE ERROR 
CLEAR MEMORY ERROR REGISTER ;MC 


ENDIF 


; MAKE SURE A PARITY ABORT OCCURS WHEN PARITY ERRORS ARE ENABLED 


353; 


BIS 
TST 


TST 


#BITO, @eMER 
CR1) 


MERTAG 


NOW ENABLE PARITY ABORTS 
THIS HAS TO BE ONE WORD INTRUCTION 
READ THE ADDRESS BACK 


SHOULD 





ro 


48 007214 
2249 007222 
007230 

2251 007232 
007236 

2253 007240 


2262 266 
2263 007272 
2264 007274 
2265 007300 
2266 007 
2267 007310 
268 
2269 007314 
7322 


2282 007372 
2283 
2284 
2285 


2286 
2287 007374 
2288 007376 
2289 


2290 007402 
2291 007404 
pr 007406 
229 





000001 
000001 


004056 
172100 


100000 
172100 
170037 
007740 


001126 
007740 
172100 


040000 
172100 
177037 
000040 


001126 
000040 
172100 


177572 
172100 


172100 


177572 


007424 
172100 


172100 
004056 


172100 


001124 


172100 


001124 


CHECK 


35$: 


40$: 
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THE 





SEQ 0057 


PARITY ABORT 
SOON !!! 


ee PARITY ABORTS 


#B1T0, A#MER 

#1, PARABT F WE DION’T GET A PARITY ABORT 

30$ : THEN 

PARABT : CLEAR PARITY ABORT 

+63 : ERROR DID NOT GET A PARITY ABORT 
aeMER CLEAR MEMORY ERROR REGISTER ;MC 


ADDRESS AND EXTENDED MER READ ENABLED 


CLEAR THE ABORT F 
CLEAR THE PARITY ERROR FLAG 


PARABT LAG 
#B1T15,@0MER 


TIMEOUT ROUTINE 


; 
aeMER : GET THE MEMORY ERROR REGISTER 
#170037, RO ; CLEAR THE UNNEEDED BITS 
RO, #7740 ; IF NOT CORRECT BITS SET THEN 

; ERROR IN ADDRESS 11-17 
RO, $BDDAT ; GET RECIEVED DATA 
€7740, $GDDAT ; GET EXPECTED DATA 
¢ ; 
aHMER ; CLEAR MEMORY ERROR REGISTER ;MC 
#81114, a0eMER ; SET ENABLE READ EXTENDED BIT 
@EMER ,R2 ; READ THE MER AGAIN 
#177037 ,R2 ; CLEAR THE UNNEEDED BITS 
R2,#40 ; IF NOT CORRECT BITS SET THEN 
40 ; ERROR IN ADDR 18-21 OR READ EXT BIT 
R2, $BDDAT ; GET RECIEVED DATA 
#40, $GDDAT ; GET EXPECTED DATA 
+65 ; ENDIF 

; CLEAR MEMORY ERROR REGISTER ;MC 
CR1) ; 
aesRo ; DISABLE MMU 
aeMER $ 
101$ ; ENDTST 
+60 ; REPORT ERROR 
aaMeER ; + CLEAR MEMORY ERROR REGISTER ;MC 
(SP)+,(SP)+ ; CLEAN STACK 
(R1) 

DISABLE MMU 

#102$ ,a%4 MC 
aOMER . + CLEAR MEMORY ERROR REGISTER ;MC 
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TEST - MEMORY ERROR REGISTER . 


2297 007424 012637 000116 MOV (SP)+, 0116 RESTORE PRIORITY 
5598 007430 012637 000114 MOV (SP)s'ag114 ‘RESTORE VESTOR 

5599 007434 013737 003016 000004 MOV SAVTIN, 004 RESTORE UNEXPECTED TIMEOUT 
2300 007442 000403 BR TST6 5;GO TO THE NEXT TEST 

5302 ; PARITY ABORT ROUTINE 

5308 

5304 

5305 007444 PARINT: 

5306 007444 005237 004056 INC PARABT , FLAG THAT WE CAME HERE 
5307 007450 000002 RTI ; RETURN 

5308 007452 PAREND: 


ae 





H5 
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TEST - MEMORY ERROR REGISTER 


2360 007552 005037 
2361 007556 013737 
2362 007564 012757 


010000 171456 
007472 


177572 
000004 003016 
010130 000004 





SEQ 0059 


.SBTTL TEST - DATA SHORTS AND STUCK AT BITS 


SHHHSSSSSSHSSSHS SHH SS SESH SSO SSS SHES H OHHH HH HHO HHHOHHHHHFOH HHH HHTHTOTT? 


:DATA SHORTS AND STUCK AT BITS TEST 


This test will check the DATA Rams for Date shorts and stuck at bits. 
Testing occurs as below: 


A memory location is checked to be set to 0 
IF NOT 0 error 

The location is complemented 

IF contents NOT -1 error 

This is repeated for all addre 

Steps 1-5 are done from ‘euenlan 1777777 to 0 


Note: The KDJ11-DA board uses 256k X 1 chips, This allows us to 
use only 2 patterns per RAM. IF one its is shorted to 
another we will ov =e when we reed for the initial state. 
If it has eee Se renee state then chances are that 
the bits are ted Pia Be 


A side effect of this test should be that memory is cleared. 


OUPWr 


BGNTST 
ENABLE PARITY 
FOR _Address := 0 to 1777776 DO BY 2 
Clear Address 
If rentente <> >. “eg 


Comntament the ha Cantante of Address 
IF contents <> -1 THEN 
in memory 


ENDF OR 
FOR MSB_Address := 1777776 DOWNTO O DO BY 2 
IF tents <> vide THEN 
in memo 


Complement the Tiles of Address 
IF tn eae <> ©O THEN 
ERROR in memory 
ENDTST 


oe SS OSS SS SHEESH OSHSSEESEH SSS BSS SHSHSHOASHSHSSHSSOSA“ASO SG SOSBSESIBASS2e0e293e290292"°2°"2°0°° 


Tn pgaee ~~ “cana eee cae ene mee eeear reas 
SC 


bee ee ©: es G2 G+ Ge G+ @e @e Ge Ge Se Se Ge Gt GF SF GF Gs Ge SE SH Ge SF Ge SF SF &F Se Se SF Se Se SF Se os SF SF Se 


#81712, aSWR ; IF BIT 12 TS SET_IN SOFTWARE SWITCH REGISTER 
BEQ «10008 TYPE TEST TRACE 
gee i TYPE ASCIZ STRING, 
43300238 oOo Ss cis><12>/#E8T & ~ DATA SHORTS AND STUCK AT BITS TEST/ 
10008: CLR — @#SRO 
HOV «#4, SAVTIM STORE UNEXPECTED TIMEOUT 
MOV —s- #100$ , aad pO SET UP THE TIMEOUT TRAP 





COKDDBO KDJ11-DA CLUSTER DIAG. 


TEST - DATA SHORTS AND STUCK AT 


-_-> 


2363 007572 
2364 007600 


2378 666 
2379 007670 
2380 

Sees 007672 


99 64 
IS_IN HERE TO 
400 


2401 


2402 

2403 007770 
2404 007774 
2405 010002 


2419 


012737 
004737 


5 
yy ed 


004737 
TEST THE 


012701 
162737 
014137 
023727 
001407 
012737 
010137 
104061 
005111 
011137 
001406 


005037 
010137 
104061 
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MACRO VOS.03 
BITS 
000340 000006 MOV 
030676 JSR 
040000 MOV 
001600 172344 MOV 
000114 MOV 
000116 MOV 
010116 000114 MOV 
000340 000116 MOV 
000001 172100 BIS 
10$: 
001126 MOV 
BEQ 
001124 CLR 
001122 MOV 
ERROR 
BR 
15$: COM 
001126 MOV 
177777 CMP 
BEQ 
177777 001124 MOV 
001122 MOV 
000002 001122 SUB 
ERROR 
BR 
060000 20$: CMP 
BLO 
000200 172344 ADD 
040000 MOV 
172344 020000 CMP 
BEQ 
BR 
25$: 
030610 
DATA RETENTION OF MEMORY. 
060000 MOV 
000200 172344 ani SUB 
001126 MOV 
001126 177777 a 
177777 001124 MOV 
001122 MOV 
ERROR 
BR 
35$: COM 
001126 MOV 
BEQ 
001124 CLR 
001122 MOV 
ERROR 


#340 , 076 


PC, SETMMU 


#40000 ,R1 
#1600 , BOK IPAR2 
a¢114,-CSP) 
#116, -CSP) 
#50$ ,a#114 
#340 ,8#116 
#B1TO, AMER 


CR1),$BDDAT 
15$ 


$GDDAT 
Ri, $BDADR 
+61 

101$ 


CR1) 

CR1), $BDDAT 
CR1)+, #177777 
20$ 


#60000 ,R1 
$200, BAKIPAR2 
sBuDAT ’S BOOT? 
58 a7 $GDDAT 
R1, $BDAOR 


101% 

(Ri) 

(Ri), $BDDAT 
40$ 

$GDDAT 

R1, $BDADR 
+61 


** ee @e @¢ =e Ge Ge *“so = + os @e oe @e Ge oF 





SEQ 0060 


GO SET UP THE MMU REGISTERS 

WE WANT wie MAP THRU PAGE 2 

SET UP KPAR 2 

SAVE VECT OR ;MC 

SAVE PRIORITY. ;MC 

set up trap ;me 


ENABLE PARITY ABORTS ;me 
FOR ADDRESS 160000 TO 2000000 DO 
: READ MEMORY 


: ERROR IN THE MEMOR 
RESTORE AND TO THE NEXT TEST 


: COMPLEMENT MEMORY 

: SAVE THE RECIEVED DATA 

: IF ITS NOT = -1 THEN 
: ERROR IN THE MEMORY 
GET EXPECTED DATA 

GET THE VIRTUAL ADDRESS 


RESTORE AND TO THE NEXT TEST 
IF _ME HAVE PASSED THE PAGE BOUNDARY 


. $ 

. 2 eS 

; : + POINT KPAR2 TO A NEW PAGE 

; : + SET THE VIRTUAL ADDRESS TO PAGE 2 

; : ENDIF 

; ENDFOR 

4 

; MOV #200,.R5 | ; THIS LOOP 

:26$: MOV #177777 ,R4 , 

:27$: SOB R4.27$ ; 

508 26$ ; 

GET A POINTER ae THE TOP OF A PAGE 
SET KIPAR TO POINT TO THE TOP PAGE 


FOR LAST ADDRESS TO FIRST BY e 

: THE DATA 

BACK MEMORY MAKE SURE IT IS -1 
: IF NOT = -1 THEN 

: GET THE EXPECTED DATA 

GET THE VIRTUAL ADDRESS 


: ERROR IN 

RESTORE AND TO THE NEXT TEST 
: COMPLEMENT MEMORY 

: » = © THEN 


OR IN MEMORY 
GET EXPECTED DATA 
GET THE VIRTUAL ADDRESS 








2420 010056 


33 
2434 010116 
2435 010120 
rats 010124 


2451 010150 
2452 

2453 010154 
24 


2458 010 
2459 010176 
2460 

2461 


000436 


012737 
005 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.035 
TEST - DATA SHORTS AND STUCK AT BITS 


040000 


000200 172344 
172344 001400 


172100 


172100 


010160 


172100 
177572 


172100 


000116 


000114 
003016 000004 


101$ 

R1, #40000 

30$ 

#200, AK IPAR2 
#60000 

aK IPAR2 , #1400 
30$ 


MER 
101$ 
; PARITY ABORT ROUTINE 


S0$: ERROR +72 ; REPORT ERROR 
CLR ss MER ' INIT THE MER 
CMP —s«(SP-)+, (SP) ; CLEAN STACK 
VECTOR SAVE AND RESTORE 
‘UNEXPECTED PARITY ABORT ERROR ROUTINE 
BR 101$ 
’ TIMEOUT ROUTINE 
; 
100$: MOV #102$,a04 
DEC Ri ; 
46 ' REPORT ERROR 
CMP ss (SP)+, (SP)+ ; CLEAN STACK 
CLR MER ; 
CLR a@SRO ; 
101$: CLR MER , INIT THE MER 
102$ 
MOV —s- CSP-)+, @#116 ; RESTORE PRIORITY 
MOV —s- CSP 114 ; RESTORE VECT 
MOV —«sSAVTIM, aaa STORE 
S17 -:G0 TO $HE NEXT TEST 
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BR 

CMP 
BHI 
SUB 
MOV 
CMP 
BNE 
CLR 
BR 


RESTORE AND TO THE NEXT TEST 


SEQ 0061 


: rt eaten ADDRESS ABOUT TO ENTER NEXT PAGE 


ADJUST THE P 


AR 
~ THE VIRTUAL ADDRESS TO TOP OF PAGE 


ENDF OR 
CLEAR THE MER 
RESTORE AND TO THE NEXT TEST 


OR 
UNEXPECTED TIMEOUT 





KS 


2463 
2464 


010200 
2493 010202 
2494 010210 
2495 010212 

010216 

010302 
2496 010302 
2497 010302 
2498 010306 
2499 010314 
2500 010322 


2513 010376 
2514 010402 
2515 010404 





010000 
010220 


030676 
000004 
010476 
031012 
000001 
031176 
000001 


177777 
000001 
031176 
000002 


031176 
031350 
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TEST - QUICK VERIFY DATA AND ADRESSING TEST 


170730 


003016 
000004 
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SEQ 0062 


.SBTTL TEST - QUICK VERIFY DATA AND ADRESSING TEST 


SOP EH EEE SESE EEE EFEHEHESESESHEEESESESEEHFEEEHFFESESHEFEFEHES ESTES HESS 


s UNTQUE ADDRESSING TEST 


This test will check the data and addres e'oa@ of the memories. 

It uses the KNAIZUK HARTMANN *OOTeK VERIFY 1 AM TEST ALGORITHM. 

This eer oe will test memory for all stuck at faults in the 
data and addressing 


Memory is split 
1K # g, ie 2 3, 


i: er re of 3. 


Testing works as follows. 


. Write a 0 into the 2nd and 3rd address of all groups 
write a -1 into the ist address of all groups 

. make sure that the 2nd address of all groups contain 0 
. Write a -1 into the 2nd address of all groups 

Make sure that the 3rd address of all groups contain 0 
— a the ist and 2nd address of all groups 
contain - 

Write a 0 into the ist address of all groups ; 
Make sure that the ist address of ans groups contain 0 
Write a -1 into the 3rd 


address o groups 
Make sure that the 3rd address of all groups contein -1 


WON VWSWN Ff 


Ei’ eta eCmne cer cal ene mnnnaa eS 
T7: OPE 


SC 
BIT #B1T12,aSWR ; IF BIT 12 1S SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ THEN TYPE TEST TRACE 
TYPE 30025$ ‘ TYPE ASCIZ STRING 
BR 30024 GET OVER THE ASCIZ 
43300256: "ASCIZ <15><12>/TEST 7 - QUICK VERIFY DATA AND ADDRESSING TEST/ 
1000$: 
JSR PC, SETMMU ; SET UP THE MMU REGISTERS 
MOV aoa, SAVTIM ; STORE UNEXPECTED TIMEOUT 
MOV 100$, a4 ; TIMEOUT 
CALL § INIMEM ; INITIALIZE MEMORY 
MOV #1,R4 ; SET ADDRESS INDEX TO 1 
CLR R5 ; SET EXPECTED PATTERN TO 0 
CLR R3 ; SET OPERATION TO READ 
CALL ; GO READ AND CHECK 
MOV $1,R4 ; SET ADDRESS INDEX TO 1 
MOV #-1,R5 SET WRITE PATTERN TO -1 
MOV $1,R3 ; SET OPERATION TO WRITE 
CALL ; GO WRITE THE Y 
MOV #2,R4 ; SET ADDRESS I TO 2 
CLR ; SET EXPECTED PATTERN TO 0 
CLR 3 ; SET OPERATION TO READ 
CALL §RWTMEM ; GO READ AND CHECK MEMORY 
CALL ; READ AND CHECK I AND I+1 INDEXES 
CLR R4 ; SET ADDRESS INDEX TO 0 
CLR R5 ; SET PATTERN TO 0 
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TEST - QUICK VERIFY DATA AND ADRESSING TEST 
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SEQ 0063 


2516 010406 012703 000001 MOV #1,R3 ; SET OPERATION TO WRITE 
2517 010412 004737 031176 CALL RWT ; GO WRITE THE MEMORY 
2518 010416 005004 CLR R4 ; SET ADDRESS INDEX TO 0 
19 0104 005005 CLR R5 ; SET EXPECTED PATTERN TO O 
010422 005003 CLR Ke ; SET OPERATION TO READ 
1 01 004737 031176 CALL RWT ; GO READ AND CHECK 
2522 0104 012704 000002 MOV #2,R4 ; SET ADDRESS INDEX TO 2 
2523 010434 2705 177777 MOV #-1,R5 ; SET PATTERN TO -1 
01 012703 000001 MOV #1,R3 ; SET OPERATION TO WRITE 
O01 737 031176 CALL RWTMEM ; GO WRITE THE MEMORY 
O01 012704 000002 MOV #2,R4 ; SET ADDRESS INDEX TO 2 
2527 010454 012705 177777 MOV #-1,R5 ; SET EXPECTED PATTERN TO -1 
2528 010460 3 CLR ; SET OPERATION TO READ 
O01 737 031176 CALL TMEM ; GO READ AND CHECK MEMORY 
2530 010466 013737 003016 000004 MOV SAVTIM, a#4 ; RESTORE UNEXPECTED TIMEOUT 
2531 010474 16 BR 10 ;;GO TO THE NEXT TEST 
2532 
2533 ; 
2534 ; TIMEOUT ROUTINE 
oa36 ' 
2537 010476 012737 010522 000004 100$: #£4mov #102$ , #4 
38 010504 5301 DEC Ri ; 
2539 010506 104046 ERROR +46 ; REPORT ERROR 
010510 005037 172100 clr mer 
2541 010514 022626 CMP (SP)+,CSP)+ ; CLEAN STACK 
2542 010516 37 177572 CLR : 
2543 010522 013737 003016 000004 102$: MOV SAVTIM, a4 i RESTORE UNEXPECTED TIMEOUT 
01 1 BEQ TST10 ;;GO TO THE NEXT TEST 
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TEST - QUICK VERIFY DATA AND ADRESSING TEST 


2547 


001220 


170354 


170340 


000114 
000116 
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SEQ 0064 


.SBTTL TEST - CHECK PARITY DETECT LOGIC AND RAMS 


SEEPS SEES S SESE SESE SESE SSH SEHESHE SHEESH SESSE SH HEHHE HEHE HEHEHE HEHEHEHHHHHHHHHH HS 


;CHECK PARITY DETECT LOGIC 
; This test will check out the rity t detection logic on the KDJ11-DA 
° 


; ; board. We will write wrong parity all locations and then we will 
; ; Expect the ® parity trap on a read 
; : BGNTST 
; Set up Parity Vector (114) To PARINT 
; Enable Write Bad parity (Set bit 2 in MER (17772100)) 
; Clear all of memory 
; Read first location written to 
; IF Parity Abort Occurs THEN 
; Error There should be no Parity Aborts sabled 
; Enable Parity Error (Set Bit 0 in MER £9 77751009) 
; oe _Address to Last_address D0 
; READ Address 
: NOP 
; IF No Interrupt THEN 
; Error Didn't Detect Bad parity 
$ 
; Clear the interrupt flag 
3 Read the MER and make sure the obtained address is the correct one 
;  ENDFOR 
; 
; PARINT: 
: pie9 that an interrupt occured 
;ENDTST 
CaeeeSeeeeedeeheehee he eh44004444544000000000000000000008000008 
+§T10: SCOPE 
@APTENV , $ENV ;ARE WE IN APT 
BNE 20003 ;IF NOT: DO THIS TEST 
TST $PASS ;FIRST PASS?? 
BEG 2000$ ‘- YES IT 
JMP ST EL SE GO TO THE NEXT TEST 
2000$: BIT #B1IT7 ,3SWR ; IF BIT ter IN SWR THEN SKIP THIS TEST 
= 00$ ; 
NXTST ; 
100$: BIT #81T12,@SWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEG 1000$ HEN TYPE TEST TRACE 
TYPE 30027 $ 1s TYPE oe STRING 
BR $ 466 HE ASCIZ 
sazoeg7s -ASCIZ <15><12>/ eet 10 - CHECK PARITY DETECT TEST/ 
1000$: 
CL ; INIT THE MEMORY ERROR REG. 
CLR PARABT ; 
MOV a#114,-CSP) ; SAVE VECTORE 
MOV a#116,-CSP) ; SAVE PRIORITY 
MOV INT ,8#114 F 
MOV #340 , 84116 ; 





012703 


012737 
113721 
005037 


012737 
012701 


042737 
052737 
105711 


005737 
000240 


0306 76 
003014 
040000 


004056 


004056 
172100 
172100 


100001 


172100 


172344 


172100 


172344 
020000 


172344 


172100 
172100 


000001 


172100 


1$: 


CHECK 
253: 


#2,R3 


#4, OeMER 
PARPAT,(R1)+ 
aeMeER 


R1, #60000 


1 
$200, @#KIPAR2 
BPKIPAR2 , #20000 
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TEST - CHECK PARITY DETECT LOGIC AND RAMS 





SEQ 0065 


CLEAR ALL OF MEMORY WITH WRITE WRONG PARITY SET 


PC, SETMMU 
PARPAT 


#40000 ,R1 
#1600 , #KIPAR2 


THE MMU REGISTERS 


GO SET UP 
INITIALIZE FIRST PATTERN TO ZERO 
O MAP THRU PAGE 2 


WE WANT T 
SET UP KPAR 2 
LOOP FOR ODD PARITY AND EVEN PARITY 


BGNDO 

: ENABLE WRITE WRONG PARITY ;MC 

: CLEAR OUT A 

: DISABLE WRITE WRONG PARITY ;MC 

: FOR 160000 TO 2000000 

: : IF WE HAVE PASSED THE PAGE BOUNDARY 


POINT KPAR2 TO A NEW PAGE 
batt THE VIRTUAL ADDRESS TO PAGE 2 


: ENDFOR 


NOW MAKE SURE THAT THE ABORTS OCCUR 


#1600 , AKIPARS 
#40000 ,R1 


#B1T2,aeMER 
#BITO, aHMER 
(Ri) 

MERTAG 


PARABT , #1 
25$ 
PARABT 
MER 

+63 


mer 
40$ 


#100001 , A#MER 
30$ 


+73 
mer 


: SET UP PAR 2 
: SET VIRTUAL ADDRESS TO PAGE #2 
: DISABLE WRITE WRONG PARITY 
: : ENABLE PARITY ERRORS 
: : READ THE BYTE 
: :PARITY 
: : ABORT 
TRAP 
SHOULD 
HAPPEN 
SOON !!! 


_ IF A PARITY ABORT DIDN'T OCCUR 
; (EITHER O OR >1 ABORTS HAVE OCCURED) 
CLEAR OUT THE MER 
ERROR DID NOT GET A PARITY ABORT 


: : ELSE 


ADDRESS AND EXTENDED MER READ ENABLED 


ARE BITS O AND 15 ARE SET ;MC 
YES THEY ARE 3MC 
NO THEY'RE NOT SET ;MC 








2657 011112 
1120 
9 Ollle2 


BeSe 
gece 
R 


wn 
oooce°oo 
TERESESHC 


1 011306 
2692 011310 


2708 366 
2709 011372 
2710 011374 
2711 011402 


2712 011406 
2713 011414 


004737 
012701 
012737 
105021 
020127 
103774 
062737 
012701 
023727 


100000 


177037 


001126 
001124 
172100 
172100 
004056 


060000 


rT 


172100 35%: 


40$: 


172344 
020000 
003014 


172344 
172100 


; CLEAR 


172344 


172344 
020000 





@B1T15, @EMER 
#160000, RO 
6,RO 
SOEPARS RO 
#170037 ,R4 
OeMER .R 
#170037,R5 


mer 

e81114, DOMER 
#177037 ,R5 
#-7,R 
#177037 .RO 


PC ,SETMMU 


#40000 ,R1 
#1600 , BK IPARS 


C(R1i)-+ 
Ri 


60 

$200 , @#KIPAR2 
Ri 

aHKIPAR2 , #20000 

70$ 
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TEST - CHECK PARITY DETECT LOGIC AND RAMS 
172100 30$: 


CLEAR THE PARITY ERROR FLAG 
ADDRESS 


THE UNNEEDED 
F NOT CCRRECT BITS set THEN 
ERROR IN 


eB 11-17 
GET EXPECTED DATA 
GET RECIEVED DATA 


SET ENABLE READ EXTENDED BIT 
READ THE MER AGAIN 


CLEAR THE UNNEEDED BITS 
GET BITS 18-21 IN RIGHT PLACE 
OUT UNNEEDED BITS 


MASK 
IF NOT CORRECT BITS SET T 
ERROR IN ADOR a OR AREAD EXT BIT 
GET RECIEVED DAT 
GET EXPECTED DATA 


: : ENDIF 


: : RESET MER 

; + CLEAR THE PARITY ABORT TRAP 
: : BUMP UP THE ADDRESS 

_ TF We HAVE PASSED THE PAGE BOUNDARY 
INT KPAR2 TO A NEW 


SEQ 0066 


PO PAGE 
SET THE VIRTUAL ADDRESS TO PAGE 2 


ENDIF 
: DOUNTIL WE 
: THIS TIME WE WANT AN 
: DECREMENT LOOP C 


: WE WANT TO MAP THRU PAGE 2 
: SET UP KPAR 2 


: ENABLE WRITE WRONG PARITY 


BOUNTIL WE DONE IT 


OF MEMORY WITH WRITE +" JING PARITY CLEAR 
GO oer UP THE MMU REGISTERS 
WE W MAP THRU PAGE 2 


SET 
ENDIF 


—_—$ ——_- ——_—__——-- 


60000 TO 2000000 
: CLEAR OUT A BYTE 
: IF WE HAVE PASSED THE PAGE BOUNDARY 


THEN 
POINT KPAR2 TO A NEW PAGE 
THE VIRTUAL ADDRESS TO PAGE 2 


HAVE READ ALL ADDRESSES 
AN ODD # 


# OF 1’S 


FOR EVEN AND ODD 








—— 
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Q 0067 
TEST - CHECK PARITY DETECT LOGIC AND RAMS 
gt 011416 000762 BR 60$ ; 
, | 
oe ; LET’S NOW MAKE SURE THAT THE ABORTS DON’T OCCUR 
2718 011420 70$: 
2719 011420 012737 001600 172344 MOV #1600 , AKIPAR?) ; SET UP PAR 2 
2720 011426 012701 040000 MOV #40000 ,R1 ; SET VIRTUAL ADDRESS TO PAGE ¢2 
2721 011432 75$: ; BGNDO 
2722 011432 052737 000001 172100 BIS #BITO,@#MER ; +: ENABLE PARITY ERRORS 
2723 011440 105711 TSTB CR1) ; : READ THE BYTE 
oiss 011442 012737 177777 003054 MOV #-1,MERTAG ; P 
: 
e7 ; PARITY 
eve? ; ABORT 
2728 ; TRAP 
le ; SHOULD NOT 
e7? ; HAPPEN !!! 
2731 ’ 
. -4 
734 011450 005737 004056 TST PARABT ; +: IF A PARITY ABORT HAS OCCURED 
2735 011454 001407 BEQ ; : : THEN 
456 005037 56 CLR PARABT ; 
2737 011462 005037 172100 CLR ; INITIALIZE THE MER 
2738 011466 104063 +63 ; ERROR A PARITY ABORT HAS OCCURED 
2739 011470 005037 172100 clr mer 
2740 011474 005201 80$: INC Ri ; : BUMP UP THE ADDRESS 
2741 011476 020127 060000 CMP R1, #60000 ; : IF WE HAVE PASSED THE PAGE BOUNDARY 
2742 011502 103753 BLO 75 ; =: : THEN 
2743 011504 062737 000200 172344 ADD #200 , BKIPAR2S ; : : POINT KPAR2 TO A NEW PAGE 
2744 011512 012701 040000 MOV ; : : SET THE VIRTUAL ADDRESS TO PAGE 2 
2745 011516 023727 172344 020000 CMP @HCIPAR2 , #20000 ; : ENDIF 
2746 011524 001401 BEQ 90$ ; DOUNTIL WE HAVE READ ALL ADDRESSES 
2747 011526 000741 BR 75$ ; 
2748 011530 005037 177572 90$: CLR a¢SRO ; DISABLE THE MMU 
2749 011534 005037 172100 CLR aeMER ’ 
2750 011540 012637 000116 MOV ba. ests ;RESTORE PRIORITY 
2751 011544 012637 000114 MOV SP )+,a#114 ter VECTOR 
2752 011550 000400 BR TSTil ;;G0 TO TEST 


2753 011552 NXTST: 





010000 
011572 


000004 
011736 
000340 
177546 


000001 
177777 
000200 
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TEST - LTC BIT 7 


SEQ 0064 


.SBTTL TEST - LTC BIT 7 


SESS SSSSSSESSSSS SESS SSS SSS SSESHES SSS SHS HH SS SS SSS SHH HOSS eee eeeeeeee 


LTC BIT 7 TEST 


This test check for the existance of the LTC register and it 
makes sure that the clock is ticking. 


BGNTST 
Set 4 timeout vector PC to yeu 
Set timeout vector PSW to 7 
Read » LTC CSR 
IF not timed OUT THEN 
: FOR a set <4 ii of time 
Check t7 
IF Sit? is set THEN 
Increment BIT7 set flag 


ELSE 
INCREMENT BIT7 Clear Flag 
: IF either flag has not been set at all THEN 
~~ Clock is not ticking 


TIMOUT: Clean stack 
Error LTC register timed out 


;LTC BIT7 TEST 
Se —————EeE 


Til: 


#81712, aSWR IF BIT 12 IS SET IN, SOFTWARE SWITCH REGISTER 
BEQ 1000$ THEN TYPE TEST TRACE 
TYPE 30029 : TYPE ASCIZ STRING 
BR 30028$ 1 3GE GET OVER THE ASCIZ 
5300296 "ASCIZ <15><12>/TEST 11 - LTC BIT? TEST/ 

1000$ : 
MOV SAVTIM ; SAVE UNEXPECTED TIMEOUT 
MoV #100 o04 ; SET UP THE TIMEOUT TRAP 

: 

TST te ; READ THE LKS REGISTER 
CLR RO ; CLEAR THE HIGH COUNTER 
CLR ; CLEAR THE LOW COUNTER 
MOV #1,R3 ; 
MOV #177777 ,R2 ; SET UP A COUNT 

1$ BIT @B1T7,LKS ; FOR AN AN AMOUNT OF TIME 
BEQ S$ ; : CHECK BIT 7 OF THE LKS 
INC RO ; 1 TT oS A "1" THEN 
BR 10$ ; BUMP UP RO 

S$: INC Ri ; + ELSE 

10$: SOB R2,1$ ; BUMP UP R1 
TST RO ; ENDFOR 
BEQ 20$ ; IF RO=0 OR 
TST Ri ; Ri = 0 
BNE 25$ ; ERROR WITH "BIT? OF LTC 

203: SOB R3,1$ ; TOLERATE ONE ERROR ONLY 
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9 
TEST - LTC BIT 7 | 


2808 011720 104053 ERROR +53 ; ENDTST 

2809 011722 005037 172100 clr mer 

2810 011726 013737 003016 000004 25%: MOV SAVTIM, a#4 H RESTORE UNEXPECTED TIMEOUT 
sous 011734 000412 BR TST12 ;;GO TO THE NEXT TEST 

2813 ; 

2814 ; TIMEOUT ROUTINE 

33 ; 

2817 011736 012737 011752 000004 1003: mov #102$ , a#4 

2818 011744 104054 ERROR +54 ; REPORT ERROR 

2819 011746 005037 172100 clr mer 

2820 011752 022626 102$: CMP (SP)+,(SP)+ ; CLEAN STACK 

pet 011754 013737 003016 000004 MOV SAVTIM, a¢4 ; RESTORE UNEXPECTED TIMEOUT 
2823 

2824 
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TEST - LKS INTERRUPT PRIORITY 


000004 
032777 


010000 167146 
012002 


000100 000052 


SEQ 0070 


.SBTTL TEST - LKS INTERRUPT PRIORITY 
;CHECK THAT LKS wh a S eo AT PRIORITY 5 CLEARING LKS<0O7> 
DON'T HAPPEN A 


; AND T PRIORITY 6 

: ROUTINE TEST 
; IF UFD AND LKS IS DISABLED THEN 
3. EXIT TEST 
; ENDIF 


SET PRIORITY TO 5 

CLEAR INTERRUPT_FLAG 

LET LKS<06>=#1 TENABLE INTERRUPTS ) 
SET_ COUNTER TO WAIT FOR 3 INTERRUPTS 


DECREMENT COUNTER 
UNTIL INTERRUPT_FLAG EQ #3 OR COUNTER EQ #0 
CLEAR LKS<06> 
IF LKS<O?> EQ #1 THEN 

ERROR (WAS NOT CLEARED ON INTERRUPT) 


ENDIF 
IF COUNTER LT TIME_REQUIRED_FOR_3 3 INTERRUPTS _ FOR_800HZ 
ERROR CINTERRUPTS NEVER GO L 


: 

; 

: 

; ENDIF 

IF INTERRUPT_FLAG LT #3 THEN 

soit ERROR CINTERRUPTS DON’T HAPPEN) 
. CLEAR INTERUPT_FLAG 

. WAIT FOR LKS<7>=1 

; LET LKS<7>=0 

IF LKS<7> NE @0 THEN 

ERROR (LKS<7> NOT CLEARED 
; 

; 

; 

: 


ENDIF 

SET PRIORITY TO 6 

SET COUNTER TO 1 SLOW CLOCK INTERRUPT 
SET LKS<06 

REPEAT 


: DECREMENT COUNTER 
UNTIL ye EQ #0 “ae ——— '- FLAG NE #0 
IF INTERRUPT _FLAG NE #0 
ERROR CINTERRUPT "VAS AT WRONG PRIORITY) 


° ENDIF 
3. RESTORE ORIGINAL PRIORITY 
ENDROUT INE 


‘ROUTINE LINE_CLOCK_INTERUPT 
INCREMENT INTERRUPT _FLAG 

* ENDROUTINE 

5 Raa aaa AAAS SSAA AAAS RA EER ERAERESSERERESES ESE SASSER E SELES ES 
48112: SCOPE 
881112, aSWR : IF BIT 12 Is SET IN SOFTWARE SWITCH REGISTER 

BEQ 10008 TYPE TEST TRACE 
TYPE 4300344 1s TYPE ASCIZ STRING 

g3g0si¢: 0050S es><12>/TEST Lo ~ LKS INTERRUPT PRIORITY/ 
BIT @B1T06 ,aeS2 ;UFD MODE? 
BEQ 1 ‘IF NOT, GO DO TEST 
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TEST 


2879 


02 01 
SECTOR TO ROUTINE 
2887 


cone 012110 
12114 


2896 012150 


1 
2897 012156 
ANCH 


2924 012264 
TINUE WITH COUNT 
2925 


-_-_--- 


2899 
2900 


2910 012216 
2911 012220 
2912 012226 
2913 912230 
2914 
2915 
2916 
2917 012234 


2922 012256 
2923 012262 
2926 012270 


2931 013312 
2932 012316 
2933 012324 


042737 
005037 


012701 
37 


001372 





- LKS INTERRUPT PRIORITY 


077777 
000100 
000100 
172100 
000240 
030610 
000003 


MACRO VOS.03 


177546 
002406 
000100 


177546 
177546 


002404 


177546 
177546 


002404 
001124 


177546 
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SEQ 0071 


; WAIT FOR 3 INTERRUPTS AND CHECK LKS<7> TO BE 0 AFTER INTERRUPT 


is: 


WN 
vn 


BIC 


#BITO6,LKS 
LKSFL 


lkent 
a#100,savloc 
#clkcnt ,9#100 


#77777,R1 
#BITO6,LKS 
aia 


2 
+42 
mer 
vote 
a 
os. lken 


3$ 


; FROM END OF TEST 427? PROBLEM 
;CLEAR INTERRUPT FLAG 


;ssave wht was in 100 

;MOV SLKSINT, 100 
;COUNTER FOR SLOW CLOCK 
rT aa ENABLE BIT 


;IF YES, BRANCH 
;ERROR WRITING 1 TO LKS<6> 


;SET PRIORITY TO 5S 
; CMP #3,LKSFL 
;BEQ 4$ 


;3 I 
;1F 


; DISABLE INTERRUPTS AND CHECK THAT PROPER CONDITIONS ARE MET 


2 
4$: 
6$: 


7$: 
8$: 


; CHECK 
9$; 


10$: 


11$: 


12$: 


#340 
#B8ITO6,LKS 
ne 


+42 
mer 


#3, lkcnt 
seen 
mer 
INTERRUPTS HAPPEN AT PRIORITY 6 
lkcnt 
300 


* 
#77777,R1 
#BITO6,LKS 


lxent 

11$ 

pc ,delay 
lkent 

12$ 
a 
mer 


#340 
#BIT6,LKS 
atsaviloc ,a#100 


sRAISE PRIORITY 
; DISABLE —E INTERRUPTS 
;LKS<6>=0? 

;IF YES, BRANCH 

; ERROR WRITING 0 TO LKS<6> 


Pes INTERRUPTS HAPPEN? 
INTERRUPTS EXPECTED 
it S DON’T HAPPEN 


;CLEAR INTERRUPT FLAG 
;RAISE PRIORITY TO 6 
;COUNTER FOR SLOW CLOCK 
;SET INTERRUPT ENABLE BIT 


ANY INTERRUPTS? 
ir. YES, EXIT LOOP 
; SOB R1,10$ 


;ANY INTERRUPTS? 

; IF BRANCH 

ste "PRIORITY ror TYPE OUT 
INTERUPTS HAPPEN AT WRONG PRIORITY 


;sRESTORE PRIORITY 
; DISABLE CLOCK INTERRUPTS 
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SEQ 0072 
TEST - RESETTING LKS 
2935 .SBTTL TEST - RESETTING LKS 
2936 RESETTING LKS(* | 
2937 ;THIS TEST WILL PROVE THAT RESET INSTRUCTION CLEARS LKS<06>. 
2938 ; ROUTINE 
2939 ;IF UFD AND LKS IS DISABLED THEN 
2940 3. EXIT TEST 
2941 ; ENDIF 
2942 . POINT LKS VECTOR 100 TO ERROR_LKS_ILLEGAL_INTERRUPT 
2943 : SYNCHRONIZE LKS BY WAITING FOR 3 PULSES 
2944 ; LET LKS<06>=#1 
2945 ; EXECUTE “RESET” 
2946 ; IF LKS<6> NE #0 THEN 
2947 ; ’ ERROR 
2948 as ENDIF 
2949 ” IF ILLEGAL_LINE_CLOCK_INTERRUPT NE O THEN 
2950 ie . ERROR 
2951 ; ENDIF 
p34 ; ENDROUT INE 
; 
2954 ; INE ERROR_LKS_ILLEGAL_INTERRUPT 
2955 “o FLAG ILLEGAL ! TNE_CLOCK_INTERRUPT 
oe er 
2958 SRR AKA EAR ERER EERE AER EE AEE EEE ERAEEEEEEAEEEEE RES EEE EES ESE SEES 
012332 000004 18113: SCOPE 
2959 012334 032777 010000 166576 BIT #B1T12,aSWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
2960 012342 001423 BEQ 1000$ ; THEN TYPE TEST TRACE 
2961 012344 104401 012352 TYPE 300333 ;;TYPE ASCIZ STRING 
012350 000420 :GET VER 
senna ; ;30033$ -ASCIZ <15><12>/TEST 13 - RESETTING LKS TEST/ 
2962 012412 1000$ 
3012412 005737 001206 TST $PASS ;sFIRST PASS? 
2964 012416 001053 BNE TST14 ;;I1F NOT FIRST PASS, EXIT TEST 
2965 012420 032737 000100 000052 BIT #B1IT06 ,aes2 : MODE ? 
2966 012426 001400 BEQ i$ ;IF NOT, BRANCH 
2968 ; SYNCHRONISE WITH LINE TIME CLOCK BY WAITING FOR 3 INTERRUPTS 
; 
2970 012430 i$: 
2971 012430 013737 000100 002406 mov a#100,savloc 
2972 012436 005037 002404 clr lken 
2973 012442 012737 027530 000100 mov $clkent ,8#100 
2974 ;MOV #LKSINT ,@#100 ;SET 
UP INTERRUPT VECTOR 
2975 012450 012737 000340 000102 MOV #340 , 84102 ;AT PROIRITY 7 
2976 012456 052737 000100 177546 BIS @BIT06,LKS -SET INTERRUPT ENABLE BIT 
2977 O1 005037 002402 CLR LKSFL ;CLEAR INTERRUPTS FLAG 
2978 012470 012702 077777 MOV #77777 ,R2 ;sCOUNTER TO WAIT FOR INTERRUPTS 
2979 012474 106427 000240 MTPS #240 ;LOWER PRIORITY TO 5 
2980 012500 004737 030610 23: jsr pc, dele 
2981 012504 022737 000003 002404 cmp #3, 1lken ;CMP #3,LKSFL :3 I 
NTERRUPTS HAPPENED? 
2982 012512 001372 bne 2$ ;BEQ 3$ ;EXI 
T LOOP, IF SO 
;S0B8 R2,2$ ;0TH 
ERWISE, KEEP WAITING 
2984 012514 106427 000340 3$: MTPS #340 ;RAISE PRIORITY TO 7 
2985 012520 000005 RESET sEXECUTE RESET 
2987 012522 0123737 002406 000100 4%: mov savloc ,a#100 











_— 
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TEST - RESETTING LKS 


2988 012530 032737 000100 177546 BIT #BIT06,LKS 
5989 012536 001403 BEQ TST14 aeIF SO, EXIT TEST 
012540 104011 ERROR +11 ; 


2990 
$333 012542 005037 172100 clr mer 


INTERRUPT ENABLE BIT CLEARED? 


SET DOESN'T CLEAR LKS 
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0074 


TEST - MAINTENANCE REGISTER TEST 
2994 .SBTTL TEST - MAINTENANCE REGISTER TEST 
2995 NTENANCE REGISTER TEST 
2996 THIS TEST WILL ADDRESS MAINTENANCE REGISTER AND CHECK BITS 
2997 :7-4 TO BE 0010, 2-1 TO BE 10, AND READ BITS 10-08, 03, 00 
2998 “FOR FUTURE USE. THOSE BITS REPRESENT THE FOLLOWING SIGNALS: 
2999 :MULTIPROCESSOR SLAVE, UNTBUS SYSTEM, FPA AVAILABLE, K%LT/TRAP 
3000 :OPTION, AND AC POWER OKAY 
3001 ;ROUTINE TEST 
3002 ;. IF MAINT. REG. BITS <7-4> NE 0010 OR <2-1> NE 10 THEN 
3003 ? . ERROR 
3004 :. ENDIF 
3005 .. READ MAINT.REG. BITS <10-08,03,00> 
3006 : ENDROUT INE 
3008 kek kkk AEREEESEAEESEESEESEEASEESEEEESEEE 
01 48114: SCOPE 
3009 012550 032777 010000 166362 BIT #B1T12,@SWR IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
3010 012556 0014 BEQ 1000$ TYPE TEST TRACE 
3011 012560 104401 012566 TYPE 30035$ S TYPE ASCIZ STRING 
012564 000423 BR 34$ 1 3G GET OVER THE ASCIZ 
; ;30035$ “ASCIZ <15><12>/TEST 14 - MAINTENANCE REGISTER TEST/ 
012634 30034$: 
3012 012634 1000$: 
3013 012634 032737 177000 177750 BIT #177000 ,MAIREG ;UNUSED BITS ALL ZEROS? 
3014 ;CHANGED FROM 174000 FOR ie D DA 
3015 012642 001403 BEQ i$ iT OK, BRANCH 
3016 012644 104043 ERROR +43 MAINTENANCE REGISTER ERROR 
17 012646 005037 172100 clr mer 
3018 012652 032737 000010 177750 1%: BIT #8113, MAIREG ;IF JUMPER IS IN 
19 012660 001010 BNE 2$ 3: THEN 
012662 042737 000010 177750 BIC #6173 MAIREG ;: SET HALT TO ODT 
3021 012670 022737 000105 177750 CMP #105, MAIREG -: MAINTENANCE REGISTER SHOULD BE SET UP TO 
: CHANGED FROM <5,2> FOR THE DA 
3023 012676 001401 BEQ 2$ ide 720 BRANCH 
012700 104043 +43 NTENANCE REGISTER ERROR 
3025 012702 005037 172100 2$: clr mer 











KO 
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SEQ 0075 


TEST - SERIAL LINE UNIT REGISTERS 
3028 _SBTTL TEST - SERIAL LINE UNIT REGISTERS 
3029 ;SERIAL LINE UNIT TEST(*) 
3030 “BCR<2-0> WILL BE READ TO FIND OUT BAUD RATE. SLU WILL BE PROG- 
3031 “RAMMED TO CHECK THE INTERRUPT LEVELS BY SETTING BIT<06> IN 
3032 “RCSR AND XMIT. LOOP BACK CAPABILITIES WILL BE TESTED BY SETTING 
3033 :TO 1 XCSR<O2>. | THE LINE CLOCK INTERRUPT SUBROUTINE WILL BE 
3034 :USED TO RETURN TO THE EXECUTION OF THE DIAGNOSTICS, IF THE 
3035 AM HANGS IN THE LOOP BACK MODE. 
3036 ‘ROUTINE TEST 
3037 ;IF UFD AND CONSOLE NOT PRESENT 
30 :. GO TO TEST_22 
3039 ; ENDIF 
3040 “8 IF BCR<07> EQ #0 THEN 
3041 ; READ BCR<2-0> T9 GET BAUD RATE 
3042 ; ENDIF 
3043 ; LET 4=ADDRESS_OF_TIMEOUT _ROUTINE 
3044 ; DO FOR RCSR,XCSR, 
3045 ic. READ XRCSR, XCSR,RBUF , XBUF 
3046 “ts IF TIMEOUT FLAG NE #0 THEN 
3047 a ERROR 
3048 5. ENDIF 
3049 - 
3050 s ENDROUTINE 
3051 
3052 “ROUTINE TIMEOUT 
3053 :. LET TIMEOUT_FLAG=#1 
3054 : ENDROUT INE 
3056 012 106 ae ee ee 
3057 012710 032777 010000 166222 BIT #B81T12,aSWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
3058 012716 001426 BEQ 1000$ ; THEN TYPE TEST TRACE 
3059 012720 104401 012726 TYPE 30037$ :; TYPE ASCIZ STRING 
012724 000423 BR 36$ ;4GE GET OVER THE ASCIZ 
43300878 “ASCIZ <15><12>/TEST 15 - SLU REGISTER ACCESS TEST/ 
012774 36$: 
3060 012774 1000$: 
3061 012774 032737 000100 000052 BIT #BIT06, a#52 ;UFD MODE? 
3062 013002 001402 BEQ 1$ :IF NOT, GO 00 THE TEST 
3063 013004 000137 016714 JUMP SLEND ;IF TRUE, SKIP ALL SLU TESTS 
3064 H 
3065 ; TRY TO ACCESS SLU REGISTERS 
3066 ; 
3067 013010 013701 i$: MOV ERRVEC,R1 ;SAVE TIMEOUT VECTOR 
3068 013014 012737 013050 000004 MOV $3$, ERRVE ;POINT ONE TO PROGRAM AREA 
01 012737 340 000006 MOV #340, ERRVEC+2 ‘AT PRIORITY 7 
3070 013030 012702 177560 MOV CSR, R2 OTART ACCESSING WITH RCSR 
3071 013034 012703 177566 MOV XBUF , 
3072 013040 012704 000002 MOV #2,R4 
3073 013044 005712 2$: TST (R2) ACCESS SLU REGISTER 
3074 013046 * BR $ ;IF NO TIMEOUT, CONTINUE 
01 010237 001126 3$;: MOV R2, $BDDAT :STORE ADDRESS THAT TIMED OUT 
3076 013054 104012 ERROR +1 :TIMEOUT ACCESSING SLU REGISTER 
3077 013056 005037 172100 clr mer 
3078 013062 020322 4$: CMP R3,(R2)+ ;LAST REGISTER ACCESSED? 
3079 013064 103767 BLO 2 -IF NOT, BRANCH 
01 012702 176500 MOV #RCSR1,R2 :GET POINTERS TO SLU 1 








LO 
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TEST - SERIAL LINE UNIT REGISTERS 


3081 013072 012703 176506 MOV #XBUF 1,R3 ;GET LAST ADDRESS ON SLU 1 
013076 077416 SOB R4,2$ ; 
3083 013100 010137 000004 MOV R1,ERRVEC | ;RESTORE TIMEOUT VECTOR 


Zu 





SEQ 0076 


- 


Mo 
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TEST 


3116 aseo* 
AST CHARACTER 


% 


3127 013234 
aise epites 


- XCSR BIT 7 


200MICRO 
012702 


012703 
012704 
105712 
100402 


NUE WAITING 
004 


737 
105712 
00403 


1 
104013 
005037 
012713 
105712 
100003 
104013 
005037 
12702 
012703 
012701 





000001 
001206 
000002 


010000 
013150 


030610 


SEC. 
177564 


177566 
000002 


30610 


172100 
000000 


ST oe 


.SBTTL TEST - XCSR BIT 
3 CHECK THAT XCSR<O7> CAN BE O AND 1. 


;XCSR <07> TRANSMITTER READY 
; ROUTINE TEST 

; WAIT FOR XCSR<07>=#1 NO MORE THAN 200MSEC 
; IF XCSR<O7> NE #1 THEN 

; . ERROR 

i ENDIF 

; . LET XBUF = #NULL 

3. WAIT FOR XCSR<0O7>=#1 
3. LET XBUF =#NULL 
; IF eee NE 0 THEN 

i. OR CREADY DIDN'T GO LOW) 
; ENDIF 

; ENDROUTINE 


Se 
ST16: SCOPE 


001220 MPB.  #APTENV, $ENV ARE WE IN APT MODE? 
1002$ ;IF NOT: 00 THIS TEST 
TST $PASS ‘FIRS! PASS?? 
Q 1002$ ‘TF YES, DO IT 
MOV #2,R4 OOP COUNT OF 1 
ieee 4$ ; GO SET UP POINTERS TO SLU 1 
166000 - #B1T12,aSWR ; IF BIT 12 IS SET IN, SOFTWARE SWITCH REGISTER 
BEQ 1000$ THEN TYPE Test RACE 
TYPE 30039$ :sTYPE ASCIZ STR 
BR 38$ + 3GE THE ASCTZ 
13300398 “ASCIZ <15><12>/TEST 16 - XCSR BIT 7 TEST/ 
;MOV «#100000, R1 
jer pe, delay ;1001$: SOB R1,1001$ 
1000$: 
;MOV  #1000,R1 
MOV #XCSR,R2 ; 
MOV #XBUF .R3 ; 
MOV $2,R4 
1$: TSTB —s_-« CR) :XCSR<7> READY 1? 
BMI 2$ ;IF SO, EXIT WAIT LOOP 
:S0B  Ri,1$ 
jsr pc ,delay 
2$: TSTB—s.s« CR2) sXCSR<7>=1? 
BMI 3$ ;IF YES, BRANCH 
ERROR +13 ;XCSR<7> DOES NOT BECOME 1 
3$; MOV @NULL . CR3) sTRY TO TRANSMIT NULL CHARACTER 
TSTB cR2) :XCSR<7>=0 
ERROR +13 ‘'XMIT READY DIDN'T GO LOW 
clr mer 
4$: MOV #XCSR1,R2 ; 
MOV #XBUF1,R3 ; 
MOV #1000,R1 


aan 





SEQ 0077 
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TEST - XCSR BIT 7 
3139 013300 077427 SOB R4,1$ ; 
3140 ) 


SEQ 0078 


“ae 
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TEST 


NOT 


-_— 


TER 
3179 013422 
tre 013422 


31 3466 
3193 013470 
3194 013474 


004737 
012701 
012702 





000001 


030610 


000013 
177560 


000002 
030610 
000004 
030610 
000004 


172100 
000004 
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- RCSR BIT 7 AND XCSR BIT 2 


001220 


165602 


000004 


SEQ 0079 
.SBTTL TEST - RCSR BIT 7 AND XCSR BIT 2 
s CHECK THAT RCSR<O7> CAN BE O. AND 1 AND THAT XCSR<02> WORKS PROPER! Y. 
'RCSR <07> RECEIVER DONE 
— <02> MAINTENANCE 
‘ ROUTINE TES 
;.CCHECK RCSR<0O7> AND XCSR<07>) 
; WAIT FOR XCSR<07>=#1 
3 LET XCSR<O02>=#1 (LOOP BACK MODE) 
; LET XBUF=#125 
3 WAIT FOR RCSR<0O7>=#1 NO MORE THAN 200MSEC 
; IF RCSR<O7> NE #1 
3. ‘. ERROR oa DOES NOT BECOME 1 OR XCSR<O2>D0ES NOT 
Ze ° 
; ENDIF 
3 IF RBUF NE #125 THEN 
; > ERROR 
; ENDIF 
; IF ee NE #0 THEN 
: RROR (CRCSR<O7>DO0ES NOT GO LOW) 
¥ ENDIF 
™ LET XCSR<02>=#0 
; ENDROUI TNE 
EKAREAERERRREREAREAREAER REE EREEEE EE EERE EEEEEEED EES £0000404404008% 
1$T17: SCOPE 
#APTENV, $ENV ARE WE IN APT MODE? 
BNE 1 $ ;IF NOT: DO THIS TEST 
TST $PASS :FIRST PASS?? 
BEQ 1002$ ; S 
MOV #2,R3 ; LOOP COUNT OF 1 
BR 1e$ ; GO SET UP POINTERS TO SLU 1 
1002$: BIT #81T12,3SWR . IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ THEN TYPE TEST TRACE 
TYPE 30041$ 1s TYPE ASCIZ STRING 
BR $ 5466 T OVER THE Z 
Th ea -ASCIZ <15><12>/TEST 17 - RCSR BIT 7 AND XCSR BIT 2 TEST/ 
;MOV #100000 ,R1 
31001$: SOB R1,1001$ ; WAIT FOR L 
1000$: 
jsr pe delay 
MOV #13,R1 ;COUNTER FOR ABOUT 200MICROSEC. 
MOV #RCSR ,R2 ; 
MOV #2,R3 
1$: isr pc, delay 
STB 0s ACR2) ;XxCSR<7> READY 1? 
bmi 2$ ;BPL i$ ; IF 
r pc delay 
stb 4(r2) 
bmi 2$ 
error +76 
clr r 
2$: BIS #B1IT02,4(R2) ;SET LOOP BACK MODE 
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SEQ 0080 
TEST - RCSR BIT 7 AND XCSR BIT 2 
3195 013502 032762 000004 000004 BIT #BIT02,4(R2) ;GOT SET OK 
3196 013510 001006 BNE | ;IF YES, BRANCH 
3197 013512 005062 000004 CLR ACR2) sRESET 10 PRINT ERROR 
3198 013516 104034 ERROR +34 ;XCSR<2> DOES NOT BECOME 1! 
3199 013520 005037 172100 clr mer 
3200 013524 000465 BR TST20 
3202 : STALL FOR A WHILE IN CASE XCSR<2> CAUSES RCSR<7> TO BE 1 
3204 013526 3$; ;MOV #60000,R1 ;STA 
LL IN CASE XCSR<2> SETS READY 
3205 013526 105712 4$: TSTB—s._-« CR) ;IF RECEIVER READY SET? 
3206 013530 100403 BMI 5$ ;IF SET, BRANCH 
3207 013532 004737 030610 jer pc, delay ;50B  R1,4$ 50TH 
ERWISE. STAY FOR A WHILE 
3208 
3310 013536 000402 BR 6$ ;IF NOT READY, BRANCH 
3211 013540 005762 000002 S$: TST 2(R2) ;READ RBUF 
3213 ; TRANSMIT XON AND CHECK RCSR<7> 
; 
3515 013544 012762 000021 000006 6%: MOV #21,6(R2) ; TRANSMIT A CHARACTER 
16 “ “MOV #60000,R1 ;COU 
3217 013552 105712 7$: TSTB ss (R22) ;RCSR<7> READY 1? 
3218 013554 100402 BMI 8$ ;IF YES, EXIT WAIT Loop 
3219 013556 004737 030610 jer pc, delay 
;SOB Ri,7$ ;0TH 
ERWISE, CONTINUE WAITING 
3222 013562 105712 8$: TSTB =: (R2) sRCSR<7>=1? 
3223 013564 100405 BMI :IF YES, BRANCH 
3224 013 00004 CLR 4(R2) ;RESET XCSR<2 
3525 013572 104014 +14 ; RECEIVER READY DIDN'T COME UP 
3226 Ol 005037 172100 < clr mer 
3527 013600 016237 000002 001126 9% MOV 2(R2), $BDDAT ;STORE RECEIVED DATA 
3228 O1 022737 000021 001126 CMP $21, $BDDAT :DATA RECEIVED OK? 
3229 013614 001410 BEQ 1 ;IF YES, BR 
3530 013616 012737 000021 001124 MOV #21,¢ $GDDAT 
3531 013624 000004 CLR Re) ;RESET TO ENABLE SLU 
3232 013630 104015 ERROR :WRONG CHARACTER RECEIVED 
3233 013632 005037 172100 clr 
3234 013636 105712 10$: "stB. 4 UCR2) sRCSR<7>=07 
3235 013640 1 BPL 11$ iF ZERO 
3236 013642 000004 CLR 4(R2) O8 ENABL 
3237 013646 104016 ERROR +16 TER LOrs<50 eter READING RBUF 
3238 013650 005037 172100 clr mer 
3539 013654 042762 000004 113: BIC #BITO2,4(R2) ;DISABLE LOOP BACK MODE 
3240 013662 012702 176500 12%: MOV #RCSR1,R2 ;POINT TO SLU 1 
3241 013666 012701 000013 MOV #13, :SET UP COUNTER 
3243 013672 005303 dec r3 
3544 013674 005703 tst r3 
$245 013676 001261 bne 1$ 





TEST 


D / 


3248 
3249 





000001 001220 


001206 
000002 
010000 
013744 


165204 
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- RESET AND XCSR<2!0> 
-SBTTL TEST 





SEQ 0081 


- RESET AND XCSR<2!0> 


; CHECK a CLEARS XCSR<O!2>. 


;ROUTINE T 


i eas RCSR<O7> AND XCSR<0O7> AND RESET) 


LET XCSR<02,00>=@1 (LOOP BACK MODE) 
EXECUTE “RESET” 

IF XCSR<02!00> NE #0 THEN 

; ERROR 


ENDIF 
LET XCSR<02>=#0 
TINE 
Ce 
CMPB.  #APTENV, $ENV ;ARE WE IN APT MODE? 
BNE 1001$ ;IF NOT: DO ACMI TEST 
TST $PASS ‘FIRST PASS?? 
BEQ 1001$ ; IF 
MOV #2,R3 ; LOOP OF 1 
BR 10$ ; GO SET UP POINTERS TO SLU 
1001$: BIT #B1T12,aSWR : IF BIT’ 12 IS SET IN SOF TWARE SuITCH REGISTER 
BEQ 1000$ TYPE TEST TRACE 
TYPE 30043$  ;TYPE ASCIZ STRING 
BR 2$ : 3GE GET OVER THE ASCIZ 
; ;30043¢ "ASCIZ <15><12>/TEST 20 - RESET AND XCSR<O!2> TEST/ 
30042$: 
1000$ : 
#XCSR,R2 : 
MOV #2 : 
1$: BIS #BIT02!BITOO, (R2) :LOOP BACK MODE 
; 
; EXECUTE RESET AND VALIDATE THAT XCSR<7,2> BECOMES <1,0> 
; 
RESET sEXECUTE RESET 
BIT #81T021BIT00, (R2) :XCSR<2,0> CLEAR? 
BIC #B1T02!BITOO, (R2) :CLEAR THE BITS SO WE CAN REPORT 
ERROR +22 :XCSR<2,0> NOT CLEARED ON RESET 
clr mer 
10$: MOV #XCSR1,R2 ; 
SOB R3,1$ ; 





TEST 


E/ 


3287 
88 


3328 
3329 014224 
3330 014230 
3331 014236 
3332 014242 
3333 014246 
3334 
3335 
3336 
3337 
3338 014252 


1 
3339 014256 





012704 
012705 


005037 
005037 


001220 


003016 
000004 


165010 
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- RESET AND INTERRUPT ENABLE BITS 


SEQ 0082 


.SBTTL TEST 
;CHECK THAT INTERRUPTS DON’T 
: CLEARS XCSR<06> AND RCSR<06>. 


- RESET AND INTERRUPT ENABLE BITS 
HAPPEN AT PRIORITY 4 AND THAT RESET 


‘RCSR <06> RECEIVER INTERRUPT ENABLE 
:XCSR <06> TRANSMITTER INTERRUPT ENABLE 
‘ROUTINE TEST 
“ta LET 60=#ADDRESS_OF_ILLEGAL_INTERRUPT_XRCSR 
: LET 64=#ADDRESS_ ~OF “ILLEGAL INTERRUPT _XRCSR 
; SET PRIORITY TO 4 
; LET XCSR<02>=#1 (LOOPBACK MODE) 
; LET XCSR<06>=#1 (ENABLE TRANSMIT INTERRUPTS) 
: LET RCSR<06>=41 (ENABLE E RECEIVE INTERRUPTS ) 
a WAIT FOR XCSR<O7>=#1 CREADY to 7 RANSMIT ) 
;. LET XBUF=#NULL (SEND A CHARACTE 
; WAIT FOR ILLEGAL INTERRUPTS ABOUT 200MSEC) 
: EXECUTE "RESET" 
; IF XCSR<06> NE #0 OR RCSR<06> NE #0 OR XRCSR NE #0 THEN 
be ENDIF 
* RESTORE PRIORITY TO NORMAL 
; ENDROUT INE 
’ 
;ROUTINE ILLEGAL_INTERRUPT_XRCSR 
ta INCREMENT XRCSR 
; ENDROUT INE 
* 5 REERAEEEAEREREAEREREREE ER ERARAEREEEREE SESE AE RES ERESES SEES SE SSS 
TST21: SCOPE 
#APTENV, $ENV ;ARE WE IN APT MODE? 
BNE 001$ :IF NOT: DO THIS TEST 
TST $PASS ‘FIRST PASS?? 
BEQ 1001$ :IF YES, DO IT 
MOV #2,R5 ; LOOP COUNT OF 1 
MOV aoa, SAVTIM ; STORE UNEXPECTED TIMEOUT 
MOV #100$, ; SET UP TIMEOUT 
JMP 20$ ; GO SET UP POINTERS TO SLU 1 
1001$: BIT #B1T12,aSWR : IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ THEN TYPE TEST TRACE 
TYPE 30045$ 1 TYPE ASCIZ STRING 
BR $ 5 3GE OVER THE ASCIZ 
43300458 "ASCIZ <15><12>/ eet 21 - SLU RESET AND INTERRUPT ENABLE TEST/ 
1000$: 
clr tcount 
clr t 
MOV #100$ , 204 ; 
MOV #60,R1 ; Rl POINTS TO SLU 0 INTERRUPT VECTOR 
MOV @RCSR R4 ; R4 POINTS TO SLU O REGISTERS 
MOV 2.R5 ; RS IS THE LOOP COUNT 


: ; CHECK THAT INTERRUPTS ENABLE BITS FOR RECEIVER AND TRASMITTER OF SLU 
ARE CLEARED BY RESET 


i$: clr 
clr 


tcount 
recount 








TEST 


-_— 


F7 
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- RESET AND INTERRUPT ENABLE BITS 


3340 014262 
3341 014270 
3342 014276 
3 4300 


3365 014376 
3366 014404 
3367 014410 


3371 
3372 014424 
—- 


3386 014464 
3387 014472 
3388 014476 
3389 014500 
3390 014504 
3391 014510 
3392 014512 
3393 014514 
3394 


3395 014520 
3396 014524 


012761 
012761 
052764 
012702 
000402 
162702 


0640 
004737 





000100 
000100 


172100 
000100 
000100 
172100 
000100 


172100 
000100 


172100 


000004 
000004 


000002 


000006 


2$: 


3$: 


4$: 


CHECK 


“OV 
uw 


9$: 


11$: 


#BITO6 ,4(R4) 
4s 


+22 

mer 

#BITO6, CR4) 
S$ 


+22 
mer 
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SEQ 0083 


;SET INTERRUPT ENABLE BIT IN XCSR 
;GOT SET OK? 


‘IF YES, BRANCH 
;IN BIT 6 OF XCSR 


;SET INTERRUPT ENABLE BIT IN RCSR 
;GOT SET OK? 

;IF YES, BRANCH 

;IN BIT 6 OF RSCR 


; INLINE BUS RESET 

:XMIT INTERRUPT ENABLE BIT CLEARED? 
;IF CLEARED 

S INTERRUPT ENABLE NOT CLEARED ON RESET 


py INTERRUPT ENBLE CLEARED? 
F CLEARED, BR 
S INTERRUPT ENABLE NOT CLEARED ON RESET 


THAT TRANSMIT INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 3 


ERROR 
clr 


CMP 


BNE 
MTPS 
BIC 


#200$ ,4(R1) 
R1) 


$340, 6( 
jerTOe. 4(R4) 
#340,R2 


a 
PC ,DELAY 


tcount 
10$ 


+21 
mer 


#200 ,R2 
6$ 


#340 
#BITO6 ,4(R4) 


;POINT XMIT VECTOR TO PROGRAM AREA 
;AT PRIORITY 7 
;SET INTERRUPT ENABLE BIT IN XCSR 


; TIME DELAY 

;WAIT FOR IN 
;BR 10$ ;1F INTERRUPTS DION’ 
; INTERRUPTS HAPPEN AT WRONG PRIORITY 

“arr ;CLEAN UP THE STACK 


NO , ros 
;sRESTORE PRIORITY 
;CLEAR INTERRUPT ENABLE BIT 


; MOV #41 ,R3 
R3,8$ 


THAT RECEIVE INTERRUPTS DON’T HAPPEN AT PRIORITY HIGHER THAN 5 


#202$)(R1) 
340,2(R 


;POINT RECEIVE VECTOR TO PROGRAM AREA 
;AT PRIORITY 7 
ers READY 


;BPL ;IF NOT, WAIT 


;SET INTERRUPT ENABLE BIT IN RCSR 
;TRY TO TRANSMIT NULL 
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TEST 


3397 014532 
3398 014536 
3399 014540 
3400 014544 


566 
3407 014574 
3408 014576 
3409 


3410 014602 
3411 014606 
3412 
3413 


3414 
3415 014610 
sate 014614 


THE LOOP 


eee 


3448 

3449 014714 
3450 014720 
3451 014724 


3453 014730 


012702 
000402 


022702 
001354 


106427 
042714 


105714 


100402 
004737 


012702 


012703 
004737 
113700 
112300 





000002 


000001 


- RESET AND INTERRUPT ENABLE BITS 


002362 


176504 


MOV #340 ,R2 
BR 13$ 
12$: SUB #40 ,R2 
13$: BIS #BIT02,4(R4) 
MTPS R2 
JSR PC ,DELAY 
tst rcount 
beq 16$ 
15$: BIC #B1ITO2,4(R4) 
ERROR +21 
clr mer 
16$: CMP #200 ,R2 
BNE 12$ 
CLEAN UP BEFORE NEXT TEST 
; MIPS #340 
BIC #BITO6, (R4) 
17$: TSTB (R4) 
BMI 18$ 
jsr pc ,delay 
18$: TST 2(R4) 
BIC Ne Feat 
20$: MOV 
MOV pRCSRa R4 
DEC RS 
BEQ 19$ 
JMP 1$ 
19$: 
; loop back connector test 
Mov #2,r2 
110$: bit #1,r2 
ce ae 
Cc ® 
bne «12008 
br 114$ 
112$: bis #b i t02,xcsr1 
114$: mov yg a) 
sr a 
love Oerbutl ro 
116$: movb (r3)+,r0 


SEQ 0084 


;SET PRIORITY TO 7 

;GO WAIT IN _ OF INTERRUPTS 
;LOWER PRIORITY LEVEL 

SET L BACK 


;TIME DELAY 


;WAIT FOR IN 
;IF INTERRUPTS DION’ 


INE 
; MOV #140 ,R3 
314$: SOB R3,14$ 


;BR 16$ 


;CLEAR LOOP BACK MODE 
; INTERRUPTS HAPPEN AT WRONG PRIORITY 


; CMP (SP)+,(SP)+ ;CLEAN UP THE STACK 
;AT PRIORITY 4? 
;IF NOT LAST ONE, CONTINUE 


RESTORE PRIORITY 7 
;CLEAR a to ENABLE BIT 


:MOV #400 
;RECEIVE READY? 

; STOP WAITING IF SO 
; 508 R2,1 17$ 


;STALL DELAY 
;OTHERWISE, STAY IN 
;READ CHARACTER TRANSMITTED 

BACK MODE 


; POINT TO SLU #1 VECTOR 
; POINT TO SLU #1 REGISTER 


;counter 


; odd or even ?? 


nope even 
he odd. connector installed ??? 
sno it's not 


s;set the maintenance bit in the 
sesr to do the internal loop back 


spointer of .byte : -1, 21, -1,..0 
;allow last character from terminal 
;suck any extra character 


;put the first character in rd 
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TEST - RESET AND INTERRUPT ENABLE BITS 


THE 


H7 


3454 014732 
3455 014734 


3459 014752 
3460 


3461 014754 
3462 014762 
3463 014764 
3464 


3465 014766 
3466 014766 


3467 

3468 014770 
3469 014770 
3470 014776 


8 
3479 015010 
015012 
3481 015014 

ooP 


3500 015066 
3501 015072 
3502 015076 


3504 
3505 





077241 


013737 
000440 


106427 
042714 


105714 
100403 
004737 
105714 
005764 
042764 
000000 


176502 


003016 


002360 
000100 
002360 
002356 


000100 
002356 


Wednesday 09-Apr-86 09:43 


beq 120$ 
movb r0, xbufl 
jsr pc, delay 
stb aéresrl 
bmi 118$ 
error +77 
176506 118%: cmpb d¢trbuf 1 , d#xbufl 
beq 116$ 
error +100 
120$: 
sob r2,110$ 
500$: 
000004 MOV SAVTIM, a#4 
BR TST22 
: 
; DEBUG PURPOSES 
; 
100$: MTPS #340 
BIC #BITO6, C(R4) 
170$ TSTB (R4) 
I 180$ 
jsr pc, delay 
tstb ) 
180$: TST 2(R4) 
000004 Fs #BITO2?]) ,4CR4) 


‘INTERRUPT SERVICE ROUTINES 
a 


200$: tst TCOUNT 
bne 61$ 
000004 bic #bit6,4(r4) 
61$: ine tcount 
RTI 
202$ tst RCOUNT 
bne 81§ 
bic #bit6,(r4) 
81$: ine recount 
RTI 
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;;GO TO 


SEQ 0085 


;done with this pass of this test 
; transm:t 

;allow some time 

;receiver ready ?? 


;no character received 


;wrong character received 


RESTORE UNEXPECTED TIMEOUT 
i NEXT TEST 


;RESTORE PRIORITY 
: CLEAR INTERRUPT ENABLE BIT 


;RECEIVE READY? 
:STOP WAITING, IF SO 
;508  R2,170$ ;OTHERWISE, STAY IN 


;STALL DELAY 


;READ CHARACTER TRANSMITTED 
;CLEAR LOOP BACK MODE 


; INCREMENT TRANS. COUNTER ;MC 


;RETURN FROM XMIT INTERRUPT ;MC 
; INCREMENT RECEIVER COUNTER ;MC 


;RETURN FROM RECEIVER INTERRUP 





TEST 





3547 015140 
0151 
015216 

3548 015216 


3 
AST CHARACTER 
015222 


3 
3559 015232 


012701 
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- INTERRUPT PRIORITY FOR SLU 


000001 001220 


001206 


000002 
015454 
010000 


015146 


030610 


000060 
177560 
000002 


164002 
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SEQ 0086 
.SBTTL TEST - INTERRUPT PRIORITY FOR SLU 
;CHECK THAT INTERRUPT 4 HAPPEN AT PRIORITY 3 AND THAT THEY CLEAR 
;RCSR<06> AND XCSR<06 
* ROUTINE TEST 
Be LET 60=#ADDRESS_OF _LEGAL _RINTERRUPT 
3. LET 64=#ADDRESS _OF_LEGAL_XINTERRUPT 
S. LET XCSR<O02>=#1 
$. SET PRIORITY TO #3 
Se WAIT FOR XINTERRUPT=#3 
- IF XCSR<O7> EQ #1 THEN 
3. ERROR 
Re ENDIF 
Bs WAIT FOR RINTERRUPT=#3 
3. IF RCSR<O7> EQ #0 THEN 
ie ERROR 
$e ENDIF 
Be LET XCSR<02>=#0 
B. SET PRIORITY TO NORMAL 
s ENDROUTINE 
;ROUTINE Loos. ay tivn a ol 
; T XBUF =#CHARACTER 
3. SA CREMENT XINTERRUPT 
; ENDROUTINE 
; 
;ROUTINE LEGAL_RINTERRUPT 
3. READ RCSR 
. INCREMENT RINTERRUPT 
; ENDROUT INE 
a 
#APTENV, SENV ;ARE WE IN APT MODE? 
BNE 1002$ IF NOT: DO THIS TEST 
TST $PASS ‘FIRST PASS?? 
BEQ 1002$ ;IF YES, DO IT 
MOV #2,R5 ; Loop ¢ OF 1 
JMP $ ; GO SET UP POINTERS TO SLU 
1002$: BIT #81T12,.3SWR ; IF BIT’ i2 IS SET IN SOFTWARE Sutter REGISTER 
BEQ 1000$ THEN TYPE TEST TRACE 
TYPE Rs ody ss TYPE eels STR arte 
> lite .ASCIZ 015><ao> test 22 - aU INTERRUPT PRIORITY TEST/ 
isr dela ;MOV #100000 ,R 
’ wis ;1001$: SOB Ri, (0013 ; WAIT FOR L 
1000$: 
; 
; GET READY FOR INTERRUPTS 
100$: 
MOV #60 ,R1 ; 
MOV #RCSR ,R4 ; 
MOV #2,R5 3 








4 


i 
COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.05 
- INTERRUPT PRIORITY FOR 


TEST 


3560 
3561 015236 


1 015 
3572 015310 
aes 015312 


6 
7 015316 
3579 015322 
015326 
3581 015332 


5366 
saet 015370 


9 
598 015372 
3599 015376 
3600 015404 


SLU 


000004 
002360 


002356 
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10$: 
MOV (R1),-(SP) 
MOV 4(R1i),-(SP) 
MOV $,(R1) 
MOV $6$.4(R1) 
MOV #340, 2(R1) 
MOV #340.6(R1) 
BIS #BIT02,4(R4) 
MOV #140,R1 

1$: TSTB—s-« CR4) 
BMI 2$ 
SOB 1,1$ 

2$: TST 2(R4) 

; SET PRIORITIES AND XMIT INTERRUPTS 
MOV #200 ,R2 

3$; SUB #40 ,R2 
CLR TCOUNT 
CLR RCOUNT 


} TRANSMITTER INTERRUPT HERE 


4$: MTPS 


BHI 
BLO 


R2 
$B1T06,4(R4) 
eB1T06,4(R4) 
#1, TCOUNT 


200% 


; RECEIVER INTERRUPT HERE 


; 
BIS 
MOV 
JSR 
BIC 
CMP 


BHI 
BLO 


#B1IT06, CR4) 
@NULL , OC R4) 


PC, DELAY 
#B1T06, (R4) 
#1,RCOUNT 
7$ 

201$ 


VIF DONE GET OUT, IF NOT LOOP 


° 
9$: TST 


20%: MOV 


2(R4) 
R 





SEQ 0087 


s SAVE PREVIOUS VECTOR 3 MC 


; 

; STORE RECEIVER VECTOR 

;STORE TRANSMITTER VECTOR 

;AT PRIORITY 7 

;FOR RECEIVER AND TRANSMITTER 
;SET LOOP BACK 

‘DELAY FOR UNEXPECTED CHARACTERS 
;RECEIVER READY? 

:IF YES BRANCH 

;0 AT MERLSe WAIT JUST IN CASE 
;READ RECEIVER 


;START WITH PRIORITY 3 
;LOWER PRIORITY 


;CLEAR TRANSMITTER COUNTER ;MC 
;CLEAR RECEIVER COUNTER ;MC 


;TRY TO DO AT LOWER PRIORITY 
;LOOP BACK & INTERRUPT ENABLE 
;WAIT DELAY FOR INTERRUPT ;MC 
;CLEAR INTERRUPT ENABLE 

; ANY ERRUPT HAPPENED ? a; 
:NO XMIT INTERRUPT 

;TOO MANY XMIT INTERRUPTS ;MC 


;SET RECEIVE INTERRUPT 


; TRANSMIT NULL 
;WAIT DELAY FOR INTERRUPT ;MC 
;CLEAR INTERRUPT 


;ONE INTERRUPT HAPPENED ? ; 
:NO RECEIVER INTERRUPTS ;MC 
;2 MANY RECEIVER INTERRUPTS ;MC 


;READ RECEIVER BUFFER 
: PRIORITY v9 

:IF NOT YET, CONTINUE 

; RAISE PRIORITY TO 7 
:CLEAR XCSR 

:GET PREVIOUS VECTOR BACK 
; 
H 








| K7 
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- INTERRUPT PRIORITY FOR 


TEST 


015506 
015510 
015514 


015516 
1 


012701 
005305 


001263 
000471 


000300 
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MOV #300,R1 
DEC RS 


BNE 10$ 
BR TST23 


; 
;ERROR ROUTINES 
5$: MOV (SP)+,4CR1) 

BIC #B81ITO2!BITO6, 4(R4) 

ERROR +70 

clr mer 

BR TST23 ;;1F ERROR, 
200$: MOV (SP)+,4(R1) 

BIC #BITO2!BITO6,4(R4) 

ERROR +74 

clr mer 

TST23 ;;1F ERROR, 

7$: MOV (SP)+,4CR1) 

MOV (SP)+,CR1) 

BIC #B1T02!BIT06, 4(R4) 

ERROR +71 

clr mer 

BR TST23 ;;1F ERROR, 
201$: MOV (SP)+,4C(R1) 

MOV CSP)+, CRI) 

BIC 4B1T02 !BIT06, 4(R4) 

ERROR +75 

clr mer 

BR TST23 


‘INTERRUPT SERVICE ROUTINES 


6$: tst TCOUNT 

bne 61 $ 

bic #bit6,4(r4) 
61$: inc tcount 

RTI 
8$: tst RCOUNT 

bne 81$ 

bic #bit6,(r4) 
Bis: ine recount 

RTI 


331F ERROR, 





SEQ 0088 


EXIT TEST 


sGET PREVIOUS VECTOR BACK 


;CLEAR LOOP BACK BIT 
;NO XMIT INTERRUPTS 


EXIT TEST 
a i PREVIOUS VECTOR BACK 


;CLEAR Loop BACK MODE BIT 
2 MANY XMIT INTERRRUPTS ;MC 


EXIT TEST 
sGET PREVIOUS VECTOR BACK 


;CLEAR Loop BACK MODE BIT 
;NO RECEIVE INTERRUPTS 


EXIT TEST 
i PREVIOUS VECTOR BACK 


;CLEAR Loop BACK MODE BIT 
32 MANY RECEIVER INTERRUPTS 


;;1F ERROR, EXIT TEST 


; INCREMENT TRANS. COUNTER ;MC 


;RETURN FROM XMIT INTERRUPT ;MC 
; INCREMENT RECEIVER COUNTER;MC 


;RETURN FROM RECEIVER INTERRUP 





nn —Kr— TTT 
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0089 
TEST - BREAK CONDITION 

3672 _SBTTL TEST - BREAK CONDITION 

; 
3674 ; SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 

. 
3676 ;CHECK THAT SENDING BREAK CAUSES FRAMING ERROR. 

‘ 
3678 ;RCSR  <15> ERROR 
4679 ; <13> FRAMING ERROR 
3680 ; <11> RECEIVED BREAK 
3682 +XCSR <00> TRANSMIT BREAK 
3684 ;ROUTINE TEST 
3685 3 T XCSR<O02>=#1 
3686 ; LET XCSR<00>=#1 
3687 ; WAIT FOR RCSR<07>=#1 
3688 ; IF RBUF<15!13!11> NE #1 THEN 
3689 ; ERROR (ERROR, FRAMING ERROR, RECEIVE BREAK NE 1) 
3690 ; ENDIF 
3691 ; LET wpe ogre a 
3692 ; IF XCSR<OO> NE #0 THEN 
3693 ; ERROR (XCSR<00> DOES NOT GO LOW) 
3694 ; ENDIF 
3695 ; WAIT FOR XCSR<O7>=#1 
3696 _ LET XBUF=@NULL (SEND NULL CHARACTER TO SEE ERROR CLEARED) 
3697 :. WAIT FOR RCSRCOT> =e! 
3698 _ IF RBUF<15!13!11> NE #0 THEN 
3699 ; ‘ ERROR 
3700 ; ENDIF 
3701 ; LET XCSR<00>=#1 
3702 ; EXECUTE “RESET” 
370 ; IF XCSR<00> NE #0 THEN 
3704 ; : ERROR 
3705 3. ENDIF 
3706 s LET XCSR<02>=#0 
Ad ; ENDROUT INE 
3709 |r ei ohm aman laa cn ca 

015654 000004 $6123 
3710 015656 032777 010000 163254 Si he #B1T12, aSWR IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
3711 015664 001426 BEQ 1000$ THEN TYPE TEST TRACE 
3712 015666 104401 015674 TYPE 30049$ : TYPE ASCIZ STRING 
015672 000423 BR $ + 4GE GET OVER THE Z 
;30049$: "ASCIZ <15><12>/TEST 23 - SLU BREAK CONDITION TEST/ 
15742 340485: 

3713 015742 1000$ 
3714 
3715 ; 
Re ; SEND BREAK AND CHECK ERROR BITS IN RBUF 
3718 . 
3719 015742 052737 000004 176504 i$: BIS #B1T02,XCSR1 ; TRANSMIT IN LOOP BACK 
3720 015750 052737 000001 176504 BIS #BIT00,XCSR1 T SEND BREAK BIT 
3721 015756 032737 000001 176504 BIT #B1TOO, XCSR1 
3722 015764 001003 BNE 2 
3723 015766 104027 ERROR +27 
3724 015770 005037 172100 clr mer 
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TEST - BREAK CONDITION 


3725 015774 
6000 


| 


"so86 016034 
3736 016040 
3737 016044 
3738 016046 
3739 016050 


." 016150 


$761 016152 
762 016156 
763 016162 

3764 016164 

3765 016166 
766 

3767 016172 

3768 016200 


3779 
3780 016252 
37861 016254 


012701 
105737 


013737 
032737 
001406 
042737 


104025 
005037 


176504 


001126 
001126 


176504 


176504 
176504 


176504 


176506 


7$: 


8$: 


CHECK 


$$:; 


10$: 


11%: 


#100,R1 
RCSR1 
S$ 
R1,4$ 


RBUF 1 
#BITOO, XCSR1 
pe delay 


RCSR1 

7$ 

pc, delay 

resrl 

7§ 

+76 

mer 

RBUF 1, $BDDAT 
@81T15!81T13!B81T11, SBDDAT 
#B1T02,XCSR1 
+25 

mer 

TST24 3; ;EXIT 
#B1T00, XCSR1 

#81700, XCSR1 
#B1T02,XCSR1 

°27 


mer 
TST24 ; EXIT 


THAT BREAK CONDITION IS CLEARED 


SAVBR , BCSR 
i 


po , delay 
xesrl 
10$ 

+76 

mer 


#177 
RC 


XBUF 1 
SRi 


RBUF 1, $BDDAT 
#81T15161115!B1T11, $BD0AT 
#81702, XCSR1 

+25 





SEQ 0090 


;STALL DELAY 
;sRECEIVER READY? 
‘IF YES, BRANCH 
;WAIT Just IN CASE OF A CHARACTER 
;READ A CHARACTER 
; TRANSMIT BREAK 
; MOV #1000,R1 
36%: SOB R1,6$ 


;sRECEIVER READY? 
;BPL 7$ ; IF 


;STORE WHATEVER RECEIVED 
;ALL ERROR BITS SET? 


‘IF YES, BRANCH 
;RESET TO ENABLE SLU 
;BREAK DOES NOT CAUSE ERRORS 


;CLEAR TRANSMIT BREAK 
;GOT CLEARED OK? 
TF sett tn Elen. 


E SLU 
ERROR WRITING. © TO XCSR<O> 


;RESTORE BCSR 
;XMIT READY? 
;BPL 10$ 


;TRY TO TRANSM”T DELETE 
READY 


;RECEIVER 
;BPL 11$ ;1F 


;STORE RECEIVE BUFFER 

;ERRORS CLEARED? 

74 FF okt to EMAL E ey 

‘BREAK NOT CLEARED ON NEXT CHARACTER 








LL .  —e— TT 
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TEST - BREAK CONDITION 
eae 016260 042737 000004 176504 12%: BIC #BITO2,XCSR1 ;CLEAR LOOP BACK MODE 


3784 


SEQ 0091 


ee 
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- OVERRUN CONDITION 


010000 162642 


016306 


100000 


000004 
176504 


176504 


176506 





SEG 0092 
.SBTTL TEST - OVERRUN CONDITION 
;CHECK OVERRUN CONDITION 
"RCSR <14> OVERRUN ERROR 
. SLU #1 IS TESTED SINCE SLU #0 IS BEING USED AS THE CONSOLE 
* ROUTINE TEST 
ba LET XCSR<O2>=#1 (LOOPBACK MODE) 
; WAIT FOR XCSR<07>=#1 
; LET XBUF=#252 
: WAIT FOR XCSR<07>=#1 
; LE] XBUF=#125 (SEND THE 2ND W/O READING THE 1ST CHARACTER) 
: WAIT FOR RCSR<07>=#1 
; STALL FOR LOWEST BAUD RATE TO GET 2ND CHARACTER 
; IF LOW BYTE OF RBUF NE #125 THEN 
. inenas ERROR (1ST CHARACTER WASN’T OVERRUN) 
4s IF RBUF<15!14> NE #1 THEN 
3. ERROR (NO OVERRUN BIT SET) 
; ENDIF 
; WAIT FOR XCSR<07>=41 
: LET XBUF =@NUL 
’ WAIT FOR RCSR<O7>=#1 
; IF RBUF<15!14> NE #0 THEN 
$ — ERROR (WASN’T CLEARED ON THE NEXT CHARACTER RECEIVED) 
4 LET XCSR<02>=80 
; ENDROUTINE 
5 RRKRARAAEEREREEE EER AEEER ERASERS EEEERERERES ES EEEEEEEEEE ESSE ES EE SS 
TST24: SCOPE 
BIT #B1T12,aSWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 100$ THEN TYPE TEST TRACE 
TYPE 30051$ ‘sie ASCIZ STRING 
BR $ 1 4GE OVER THE ASCIZ 
iiaeecee .ASCIZ <15><12>/TEST 24 - SLU OVERRUN CONDITION TEST/ 
* MOV #100000 ,R1 
1001$: SOB R1,1001$ ; WAIT FOR LAST CHARACTER 
100$: 81S @B1TO2, XCSR1 ;SET LOOP BACK MODE 
tstb xcsrl 18:  TSTB XCSR1 
bmi 1$ ;BPL i$ ;1F 
isr dele 
stb odes . 
bmi i$ 
error +76 
clr mer 
1$: MOV $21, XBUF1 ; TRANSMIT A CHARACTER 
tstb resrl :2$: TSTB RCSR1 
bmi e$ ;BPL es ; IF 
isr pc , delay 
stb resrl 
bmi 2$ 
error +76 
clr mer 
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- OVERRUN CONDITION 
3839 016454 


3840 016454 Lgo7S! 
be oH TO TRANSMIT? 


TEST 


3868 016600 
NSMITTER READY? 
386 6604 


ie ee 


384 
FOR THE 2ND CHARACTER $$$ 
6510 004737 0306 


3860 564 
3861 016570 
3862 016572 
3863 016576 
3864 
3865 


3866 
3867 016600 


6606 
3871 016612 


702 
3891 016706 
3892 


3893 016714 
3894 016714 


012737 


013737 


176504 


030610 
176504 


172100 
000177 


176506 


176506 



















Page 33-1 
SEQ 0093 
2$: 
tstb xesrl ;3$: TST8 XCSR1 
bmi 3$ ;BPL «ss388 ;IF 
isr pc, delay 
stb xesrl 
bm i 3§ 
error +76 
39 clr mer 
; MOV #177, XBUF1 ; TRANSMIT THE 2ND CHARACTER 
;MOV  #175000,R3 ;STA 
jsr pc ,delay 34%: SOB R3,4$ 
MOV RBUF ;STORE RECEIVED DATA 
MOV srt et ORDDAT ‘EXPETED PATTERN 
CMPB #177, $BDDAT ;2ND CHARACTER RECEIVED? 
BEQ S$ ;IF YES, BR 
BIC #B1TO02, XCSR1 :RESET TO ENABLE SLU 
ERROR +31 :2ND CHARACTER DIDN'T OVERRUN 1ST 
cir mer 
S$: CMPB  4=s-s @#BIT7!BIT6, $BDDAT+1 ;OVERRUN ERROR BITS SET? 
BEQ 6$ -IF YES, BR 
CLR XCSR1 RESET TO ENABLE SLU 
+32 ‘OVERRUN DOES NOT SET ERRORS BITS 
clr mer 
BR TST25 ; ;EX1T 
: SEND NEXT CHARACTER TO CLEAR OVERRUN CONDITIONS 
: 
6$: 
tstb xesrl ;TSTB XCSR1 ; TRA 
bm i 7$ ;BPL sé S$ ; IF 
gsr pc ,delay 
stb xesrl 
bmi 7$ 
error +76 
clr mer 
7$: 
MOV #NULL , XBUF 1 ; TRANSMIT NULL CHARACTER 
tstb resril 3;7$: TSTB RCSR1 
bmi 8$ ;BPL 7$ ;1F 
isr pc ,delay 
stb resrl 
bm i 8$ 
error +76 
clr mer 
8$: BIT #B1T15!81T14,RBUF1 ANY ERRORS SET? 
re 8 s@BITO2,XCSR1 IE TF oT OENABLE SL 
ER —_— RE ERUN NOT BE RED ON NEXT CHAR. 
cir mer 
9$ BIC #B1T02,XCSR1 ;CLEAR LOOP BACK MODE BIT 
SLEND ;LAST SLU TEST 
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TEST - OVERRUN CONDITION 
rt 016716 000240 NOSLU: NOP ;WE SKIPPED ALL SLU TEST IN APT MODE ON MORE THAN 1 PASS 


3898 


SEG 0094 


TEST 





066 
zane 017070 


942 017072 


3948 
Phan 017112 


3951 
3952 017114 


001404 
005105 


010000 
016740 


000001 
001206 
000001 


000005 
000020 
000000 
177520 
000004 
177777 


001170 
002354 


177562 


162210 


000052 


001220 


002354 


SEQ 0095 
.SBTTL TEST - LED'S ON 
‘THIS TEST WILL INITIALIZE BOR TO CONTAIN A ROTATING PATTERN 
:DISPLAYED IN LED'S. 
‘ROUTINE TEST 
:. WHILE A KEY NOT RECEIVED FROM KEYBOARD DO 
; STALL ALLOWING TIME TO SEE PATTERN 
ROTATE LEFT TO LIGHT UP NEXT LED'S 
* ENDDO 
: ENDROUT INE 
me. _ gO CRE meee eenapmaeeng Meena 
#BIT12,aSWR IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ TYPE TEST TRACE 
TYPE 30053$ TYPE ASCIZ STRING 
52$ ‘GET OVER THE ASCIZ 
; ;30053$ "ASCIZ <15><12>/TEST 25 - KDJ11-DA LED TESTS/ 
30052: 
1000$: 
CLR ;FLAG IN NO INTERRRUPT MODE 
BIT #B1T00, a#52 NG IN CHAIN MODE 
BEQ 1$ ;SKIP PRINTOUTS 
TST $PASS 1ST S? 
BNE i$ :IF NOT, SKIP PRINTOUTS 
CMPB = #AP TENV,, S$ENV ;APT ? 
BEQ i$ ;YES, SKIP OUT’ 
COM R5 :CLEAR FLAG IN INTERRUPT MODE 
MOV #5,LEDCNT :DO PATTERN 5 TIMES ; 
1$: MOV #20,R4 ;FOR EACH LOOP 
MOV #0,R1 -START WITH 1 
2$: MOVB R1,@@NATREG : TURN OFF FIRST LED 
MOV $4.R3 ;STALL DELAY 
3$: MOV 8177777 ,R2 >STALL DELAY 
4$: SOB R2,4$ ;WAIT A WHILE 
S08 R3,3$ :WAIT A WHILE 
CLC ; 
7$: 
INC Ri 2 Poe 19 OCTAL mC 
SOB R4,2$ "inl naib cre. 0 OCTAL 
TST RS ‘RUNNING IN INTERACTIVE MODE?’ 
BEQ 6$ :IF NOT, EXIT 
TYPE , $BELL : 
DEC L 
BNE 1§ ;REPEAT PATTERN 5 TIMES 
S$: TST RBUF ;READ BUFFER 
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- LED’S ON 
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TEST - LED'S ON 


3953 017120 062706 000004 ADD #4, SP 
3954 017124 112737 000000 177520 6%: MOVB #0, NATREG 
000400 BR TST26 


3955 017132 ;;EXIT TEST 
3956 


;sADJUST STACK 
;NO MORE 


SEQ 0096 
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TEST - DIFFERENT LEVELS OF INTERRUPTS 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
39 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
017134 000004 
3988 
3989 
3 17136 005737 002334 
3991 017142 15 
3992 017144 032777 010000 161766 
3993 017152 001444 
3 017154 104401 017162 
17160 000441 
UPTS/ 
17264 
3995 017264 
3996 
3997 
3998 
3999 017264 013703 0023534 
4000 017270 012777 017340 163050 
4001 017276 012777 000340 163044 
017304 012700 003002 
4003 017310 012701 000340 
4004 
4005 
4006 
4007 017314 
4008 017314 106427 000200 
4009 017320 004737 030026 
4010 017324 012077 163006 


~-_—- 
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SEQ 0097 


$4 TL TEST - DIFFERENT LEVELS OF INTERRUPTS 


;DIFFERENT LEVELS OF INTERRUPTS 
THIS TEST WILL PROGRAM EXERCISER TO INTERRUPT AT DIFFERENT 


Q22 BUS 
LEVELS. ARBITRATION BETWEEN DIFFERENT LEVELS OF INTERRUPTS AND 
;PaRG'S WILL BE TESTED. 
i CHECK DIFFERENT LEVELS OF INTERRUPTS. 

ROUTINE TEST 


SET VECTOR TO INTERRUPT oF . 
_ INTERRUPTS FROM 4 10 7 
E INTERRUP 


ENABL Ts. 
SET PRIORITY=INTERUPT 
IF anes. heat SET THEN 


N 
SET PRIORITY=INTERRUPT -1 
IF INTERRUPT_FLAG NOTSET THEN 
: ERROR 
ENDIF 

: ? LET INTERRUPT_DMA=0 

ENDDO 

s ENDROUTINE 

; ROUTINE INTERUPT 

; LET SRVERAUPT FLAG=1 


: 

’ 

; . ENDIF 

+ ENABLE INTERRUPTS 
; 


RETURN 
 ENDROUTINE 
5 ERR ARERAEEAEAEAEREEAREREERERRESAEERARERERESE SESE ES ESESEREES SE 
TST26: SCOPE 
: BIT #B1IT07, a¢52 ;UFD MODE? 
SKIP NE. <IF SO, EXIT TEST> 
TST CSR1 ;AT LEAST ONE Q22BE FOUND? 
BEQ TST27 ;;IF NOT, EXIT TEST 
BIT #B1T12,aSWR : IF BIT 12 IS SET IN SOFTWARE SWITCH REGISTER 
BEQ 1000$ THEN TYPE TEST TRACE 
TYPE 30055$ ;;TYPE ASCIZ ST 
BR $ >:GET OVER THE ASCIZ 
; ;30055$: "ASCIZ <15><12>/TEST 26 - ARBITRATION BETWEEN CPU PRIORITY AND Q-BUS INTERR 
30054$: 
1000$: 
' SETUP INITIAL PRIORITY TO 7 
MOV CSR1,R3 ;DO FOR FIRST FOUND Q22BE 
MOV $5$, aVQBE1 ;POINT INT ERRUPT VECTOR TO PROGRAM 
MOV #340, AVQPR1 :AT PRIORITY 
MOV #Q22EN, RO :START WITH 4 "ror INTERRUPTS 
MOV #340, Ri "LOW BOUNDARY FOR NO INTERRUPTS 
¢ CHECK THAT INTERRUPTS DON'T HAPPEN AT PRIORITY HIGHER THAN BR 
re MTPS #200 ;SET PRIORITY NOT TO INTERRUPT 
JSR C, Q22INT ;ENABLE INTERRUPTS 
MOV CRO) acsR2 ;CLEAR GO BIT 





TEST 





4011 017330 


4017 346 
4018 017350 


172100 
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- DIFFERENT LEVELS OF INTERRUPTS 


162766 
162762 


5$: 


6$: 
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SEQ 0098 
NOP 

NOP 

oR 6$ IF NO INTERUP 

ERROR +37 INTERRUPTS eben 

cir r 

TST (SP)+ ;RESTORE STACK 

TST (SP)+ 


; 
; INTERRUPT AT ALL LEVELS 


iNg22: 


5$: 
6$: 


MOV #5$, @VQBE1 ;POINT INTERRUPT VECTOR TO PROGRAM 
MOV #340, aVQPR1 ;AT PRIORITY 
MOV #Q22EN, RO :START WITH 4 FOR INTERRUPTS 


THAT INTERRUPTS HAPPEN AT PRIORITY LOWER THAN BR 


MTPS ;SET PRIORITY TO INTERRUPT 
JSR A AQO2INT E INTERRUPTS 

MOV PC. a2 aCSR2 ‘CLEAR GO BIT 

NOP ;WAIT A WHILE 

NOP 

NOP 

ERROR +37 s INTERRUPTS DON’T HAPPEN 
clr mer 

BR 6$ ;DON’T RESTORE STACK 

TST (SP)+ ;RESTORE STACK 

TST (SP )+ 

MIPS #340 ;BACK TO 7 
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TEST 


017434 
9 


4060 

4061 017436 
4062 017442 
4063 017444 


4064 017452 
4065 017454 
017460 


000004 
005737 
001523 
032777 


001441 
104401 


012777 


002334 
010000 


017462 


017656 
000340 
017672 
000340 
003002 
017710 
002334 
000140 
000340 
177772 
030026 
162470 


172100 


177772 
162430 


161466 
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- ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 


SEQ 0099 


_SBTTL TEST - ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 
“CHECK PRIORITY ORDER BETWEEN PIRG’S AND INTERRUPTS. 
:ROUTINE TEST 
:. F UFD THEN 
; EXIT TEST 
; ENDIF 
: D0 FOR I FROM #6 DOWN 10 #3 
;. SET PRIORITY TO I 
+ ‘ ENABLE INTERRUPT(I+1) AND PIRQ(I+1) 
" IF INTERRUPT(T+1) WAS BEFORE pTRaCT 1) THEN 
: : ENDIF 
: ENDROUT INE 
gee atl ama a ahaa taieninaeneeemmal 
t8t2 SCOPE 
BIT #BIT0O7 ,a#52 ;UFD MODE? 
: SKIP §_NE.<IF SO, EXIT TEST> 
TST CSR1 iy LEAST ONE @22BE FOUND? 
BEQ TST30 ;;IF NOT, EXIT TES 
BIT #B1T12, aSWR ; IF BIT 12 IS SET IN SOFTWARE SWITCH REGIST 
Q 1000$ ; THEN TYPE TEST TRACE 
TYPE 30057$ ;;TYPE ASCIZ STRING 
R 56$ set OVER THE ASCIZ 
43300578 "ASCIZ <15><12>/TEST 27 - ARBITRATION BETWEEN PIRQ‘S AND Q-BUS INTERRUPTS/ 
1000$ : 
MOV #3$,aVQBE1 ;SETUP Q@22BE VECTOR 
MOV $340 avQPRt -AT PRIORITY 
MOV #4$, bora ;SETUP PIRQ VECTOR 
MOV $340, PIRQVEC +2 :AT PRIORITY 
MOV RO ;POINT THRU PRIORITIES FOR Q22BE 
MOV SPIRQT .R4 :POINTER THRU PIRQ'S 
MOV CSR1,R3 :DO0 FOR FIRST Q22BE 
MOV #140,R2 ‘START WITH CPU PRIORITY AT 7 
2$: MTPS 340 ;RAISE PRIORITY TO 7 
MOV (R4)+,PIRQ ;SET PRIORITY FOR PIRQ'S 
JSR PC, Q22 TNT sINITIALISE Q22BE TO INTERRUPT 
MOV (RO)+, @CSR2 DONE BIT 
MIPS R2 ‘LOWER PRIORITY 
NOP 
NOP 
3$: ERROR +35 ;PIRQ'S DON'T TAKE OVER BIRQ’S 
clr mer 
TST (SP )+ ;CLEAN UP STACK 
TST (SP)+ 
BR S$ ;BRANCH AROUND PIRQ INTERRUPT 
4s: TST (SP )-+ ;CLEAN UP STACK 
TST (SP )+ 
S$: CLR PIRQ ;CLEAR ANY REQUESTS 
CLR acsrRe ;CLEAR JUST IN CASE 
BR TST30 .;GO TO THE NEXT TEST 
PIRQT: .WORD 10000. ;PIRQ’S 4 
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- ARBITRATION BETWEEN PIRQ’S AND INTERRUPTS 


TEST 


017712 
4097 017714 
4098 017720 


4099 
4100 017724 


4104 017742 
4105 


4106 
4107 017746 
4108 





000004 
005037 
000137 
123727 


177572 
031632 


001220 
003034 
003034 


—_—_——_———— 





SEQ 0100 


capt te ae amen at, tae: ican ciate cape 


000001 VIREOP: 


1$: 


RS a#SRO ;DISABLE MMU (DO NOT REMOVE !!!) 
JMP $E0P ;EXIT 

ag : aor if not APT, don’t worry about 
ato CCHPAS ; maintain cache routin pascnt 
DEC CCHPAS 

vei ie VIREOP ROUTINE to provide common End of Pass exit point 











K8 
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GLOBAL ERROR MESSAGES 


SEG 0101 


rier 017750 Pe Sa GLOBAL ERROR MESSAGES 
4112 017750 015 Ole 113 * ASCII <15><12>/KDJ11-DA CPU DIAGNOSTIC - COKDDAO/<15><12><12> 
017753 104 112 061 
061 5 1 
017761 101 103 


017775 i23 124 111 
020000 103 040 O55 
020003 103 117 
020006 113 104 1 
020011 101 015 
020014 012 Ole | 
4113 020016 123 127 111 ASCII /SWITCH REGISTER SEI FCTION: /<12><12><15> 
020021 124 103 110 
020024 122 


020051 012 015 
4114 020053 102 111 124 -ASCII /BIT NUMBER USE/<12><15> 
020056 040 116 125 


02006 125 
020072 123 105 012 


020075 015 
4115 020076 055 055 055 (RRETE Pasoccseses MMM OCR RO CRO MOMS /<12><15> 
020101 055 055 055 
104 055 055 055 
020107 055 011 011 
020112 011 055 055 
020115 055 055 055 
120 055 055 055 
020123 055 055 055 
126 055 055 055 
020131 055 055 055 
134 055 055 Ole 
020137 015 
4116 020140 011 061 065 -ASCII / 15 HALT ON ERROR/<12><15> 
020143 011 011 011 
146 119 101 114 
020151 124 040 117 
154 116 040 
020157 122 122 117 
020162 122 O12 015 
4117 020165 O11 061 064 -ASCII / 14 LOOP ON PRESENT TEST/<12><15> 
020170 011 011 O11 
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GLOBAL ERROR MESSAGES 


020207 105 
02021 040 
02021 123 
020220 015 
4118 020221 011 
020224 011 
020227 111 
020232 111 
020235 124 
020240 1 
020243 122 
020246 131 
020251 117 
020254 123 
4119 020257 011 
020262 011 
020265 105 
020270 102 
020273 
020276 123 
020301 124 
020304 103 
020307 107 
4120 020312 011 
020315 011 
020320 111 
020323 111 
326 124 
020331 124 
334 101 
020337 117 
020342 012 
4121 020344 011 
020347 011 
352 102 
020355 114 
360 116 
020363 122 
020366 122 
4122 020371 011 
020374 011 
377 114 
120 
116 
020410 122 
020413 122 
4123 020416 011 
020421 011 
020424 114 
020427 120 
020432 116 
020435 105 
020440 040 
020443 040 
020446 122 
020451 055 
020454 012 


Wednesday 


. ASCII 


. ASCII 


-ASCITI 


.ASCIT 


.ASCII 


.ASCIT 
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/ 13 
/ 12 
/ 11 
/ 10 
/ 9 
/ 8 


SEQ 0102 


INHIBIT ERROR TYPEOUTS/<12><15> 


ENABLE TEST TRACING/<12><15> 


INHIBIT ITERATIONS/<12><15> 


BELL ON ERROR/<12><15> 


LOOP ON ERROR/<12><15> 


LOOP ON TEST IN SWR<5-0>/<12><15> 











M8 
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GLOBAL ERROR MESSAGES 
4124 020456 O11 040 067 -ASCII / 7 INHIBIT THE CHECK PARITY TEST/<12><15> 


SEQ 0103 


1 O11 O11 011 

111 116 110 

7 111 102 111 

pene te 124 040 124 
110 105 


120 101 122 
020511 111 124 131 
020514 040 124 105 
020517 123 124 012 
020522 015 
4125 020523 011 040 066 -ASCII / 6 Not used/<12><15> 
020526 O11 O11 011 
020531 116 157 
34 040 165 163 
020537 145 144 O12 
020542 015 
4126 020543 O11 065 055 -ASCIZ / 5-0 Subtest number to loop on (BIT 8)/<12><12><1 
> 
060 011 O11 
020551 011 123 165 
142 164 145 
020557 163 164 
156 165 155 
142 145 
020570 164 157 
020573 154 157 


102 111 
020607 124 070 
le 051 Ole 012 
4127 020615 015 
4128 020617 102 101 123 ~EM1: .ASCIZ /BASIC INSTRUCTION SET ERROR/ 
020622 111 103 040 
111 116 123 
0206 24 122 1 
020633 103 124 111 
020636 117 116 
020641 123 105 124 
020644 040 1 
020647 122 117 122 
peteta | 000 
4129 0206 115 115 125 EMe: .ASCIZ /MMU ERROR/ 
020656 040 1 1 
020661 122 117 122 
020664 000 
4130 020665 106 120 120 EMS: .ASCIZ /FPP ERROR/ 
020670 105 122 
020673 122 117 122 
020676 000 
4131 020677 EMS1: 
4132 020677 103 110 EM54: .ASCIZ /CHECKSUM ERROR IN 16-BIT ROM / 
702 103 113 123 
020705 125 115 





~>- =) 





0 
4133 020735 
40 


02 
4137 021073 
02 
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GLOBAL ERROR MESSAGES 


.ASCIZ 


. ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 
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/TIMEOUT READING LKS/ 


/LKS<07> DOES NOT BECOME 1/ 


/ILLEGAL LKS INTERRUPTS/ 


/LKS READY DOESN'T GO LOW/ 


/WRONG NUMBER OF LKS INTERRUPTS/ 


/LKS INTERRUPTS HAPPEN AT WRONG PRIORITY/ 


SEQ 0104 





—— 
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GLOBAL ERROR MESSAGES 


120 1 116 
021157 040 101 124 
040 122 
021165 117 116 107 


021201 000 
4139 021202 122 105 123 €M71:  .ASCIZ /RESET DOESN’T CLEAR LKS<06>/ 
1205 105 124 040 
021210 104 117 105 
1213 123 116 7 
021216 124 040 103 
1221 114 105 101 
021224 122 040 114 
021227 113 123 074 
021232 060 076 
021235 000 
4140 021236 124 111 115 EM72: .ASCIZ /TIMEOUT READING SLU REGISTERS/ 
021241 105 117 125 
021244 124 040 122 
021247 105 101 1 
1252 111 116 107 
021255 040 123 114 
125 040 122 
021263 105 107 111 
123 4 1 


02 000 
4141 Ostet 105 122 ie EM73: .ASCIZ /ERROR IN XMIT READY/ 


130 115 111 
021310 124 040 122 
021313 105 101 i 
021316 131 000 
4142 021320 122 103 123 EM74: .ASCIZ /RCSR<7> DOESN'T BECOME 1/ 
021323 122 074 067 
1326 076 040 1 
021331 117 105 123 
1334 116 047 124 
021337 040 102 05 
1342 103 117 115 
021345 040 1 
1350 


02 000 
4143 021351 127 122 117 €EM75: .ASCIZ /WRONG CHARACTER RECEIVED/ 
021354 040 


5 124 1 122 
021370 040 122 105 
021373 103 105 111 
021376 126 105 1 
021401 000 
4144 021402 122 103 123 €M76: .ASCIZ /RCSR<O7> NOT CLEARED AFTER READING RBUF/ 
in ae 





a —— 
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021416 O40 103 8 114 
021421 105 101 &~# 122 
021424 105 104 040 
021427 101 106 124 
1432 105 122 040 
021435 i122 105 101 
1440 104 iii 116 
021443 107 040 ~# 12 
1446 102 125 106 
021451 000 
4145 021452 130 103 + #123 €M77:  .ASCIZ /XCSR<07> NOT SET ON RESET/ 
021455 122 074 060 
460 067 076 
021463 116 #117 #8 124 
1466 040 123 
021471 124 +040 117 
021474 116 040 ~»# 122 
021477 «105 )=Ss«123—ts«108 
021502 124 000 
4146 021504 © 122,103 A; EM100: | .ASCIZ = /RCSR<O7> NOT CLEARED ON RESET/ 


S20 103 114 
021523 105 101 122 
S26 04 040 
021531 117 116 040 
021534 122 05 123 
021537 105 124 000 
4147 021542 123 114 125 €M101: .ASCIZ /SLU INTERRUPTS HAPPEN AT 4/ 
021545 040 111 116 
021550 124 0S 122 
021553 122 120 
021556 124 040 
021561 110 101 120 
564 120 116 
7 040 101 124 | 
021572 040 064 000 
4148 021575 122 105 123 €M102: .ASCIZ /RESET DOES NOT CLEAR PROPER BITS IN SLU REGISTERS/ 
1600 105 124 040 
021603 104 117 105 
606 123 116 
021611 117 


636 iil 116 040 
021641 123 114 125 
644 040 122 1 
021647 107 111 123 
021652 124 05 122 

655 123 


021 000 
4149 ostas 124 122 tt EM103: .ASCIZ /TRANSMIT INTERRUPT DOES NOT CLEAR XCSR<07>/ 
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02 
4151 022002 


EM104: 


EM105: 


EM106: 


Wednesday 09-Apr-86 09:43 Page 38-6 


.ASCIZ /RECEIVE INTERRUPTS DON’T CLEAR RCSR<0 '>/ 


.ASCIZ /BREAK CONDITION DOES NOT SET RBUF PROPERLY/ 


.ASCIZ /RBUF <15-11> WASN’T CLEARED ON NEXT CHARACTER/ 


SEQ 0107 





COKDDSO KDU11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 09-Apr-86 09:43 Page 358-7 
GLOBAL ERROR MESSAGES 


32 
4153 022133 
36 


4154 


4155 


022 
022222 


022230 
022231 
34 


000 
123 


—M107: 


EM110: 


EM1i11: 


EMil12: 


EM113: 


SEG 0108 


.ASCIZ /SLU INTERRUPTS DON’T HAPPEN/ 


.ASCIZ /ERROR IN WRITING TO SLU REGISTERS/ 


.ASCIZ /FIRST CHARACTER WAS NOT OVERRUN BY THE SECOND/ 


.ASCIZ /OVERRUN CONDITION DOES NOT SET PROPER BITS IN RBUF/ 


.ASCIZ /OVERRUN BITS WERE NOT CLEARED ON THE NEXT CHARACTER/ 





022375 
0 





~ J) 
SREESK 
oO oO 


BsRcsas 


103 
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EM114: 


EM123: 


EM124: 


EM1i25: 


.ASCIZ \ERROR ON XCSR<2>\ 


.ASCIZ /ERROR IN Q22BE DMA CYCLES/ 


.ASCIZ /PIRQ INTERRUPTS DON’T TAKE PRIORITY OVER @ BUS INTERRUPTS/ 


.ASCIZ /NO POWER DOWN TRAP TO 24 OCCUR/ 





COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 


GLOBAL ERROR MESSAGES 


022642 122 
022645 040 
022650 040 
022653 040 
022656 103 
022661 000 
4162 022662 105 
022665 117 
022670 104 
2673 116 
022676 121 
022701 102 
2704 111 
022707 105 
2712 125 
022715 123 
4163 022717 105 
2722 117 
2725 111 
730 117 
022733 122 
2736 111 
022741 
2744 
022747 107 
2752 117 
022755 124 
760 000 
4164 022761 125 
2764 1 
022767 103 
022772 104 
775 122 
02 040 
023003 040 
4165 023006 105 
3011 117 
023014 127 
023017 124 
107 
117 
023030 113 
023033 
us ey it 
i 
023047 115 
023052 116 
023055 116 
103 
023063 122 
023066 111 
023071 105 
4167 023074 105 
023077 117 
0231 lil 
0231 1 


120 
117 
064 


103 
122 


EM126: 


EM127: 


EM130: 


EM131: 


EM1i3e2: 


EM135: 


.ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 


. ASCIZ 
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ZERROR DOING Q22BE INTERRUPTS/ 


ZERROR IN OPERATION OF PMG COUNTER/ 


/UNEXPECTED TRAP TO 4/ 


ZERROR WRITING TO LKS<6>/ 


ZERROR IN MAINTENANCE REGISTER/ 


ERROR IN THE MEMORY DATA PATH/ 


SEQ 0110 





H9 
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4168 023132 


02 
4169 
02 


4171 


EM136: 


EM137: 


EM141: 


.ASCIZ /TIMED OUT IN ACCESSING LOCATION 0/ 


.ASCIZ /TIMED OUT IN TRYING TO ACCESS MEMORY/ 


.ASCIZ /ERROR IN FUNCTIONAL REVISION BITS ON THE NATIVE REGISTER/ 


.ASCIZ /ERROR IN THE INDICATOR BITS ON THE NATIVE REGISTER/ 





SEQ 0111 








Lg 


SS 
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4172 


4173 


4174 


023357 


023370 


362 
3365 


122 
111 


EM142: 


—EM143: 


EM144: 


.ASCIZ /ERROR IN THE BOOT SELECT SWITCHES ON THE NATIVE REGISTER/ 


.ASCIZ /TIMED OUT IN ACCESS TO THE NATIVE REGISTER/ 


.ASCIZ /BIT 7 IN LTC IS NOT TOGGLING BETWEEN 0 AND 1/ 


SEG OLl2 
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GLOBAL ERROR MESSAGES 


3630 101 
023633 040 
4175 023636 124 
023641 105 
023644 124 
023647 116 
023652 103 
023655 123 
023660 116 
023663 124 
023666 040 
023671 123 
023674 105 
023677 123 
3702 122 
4176 023704 105 
3707 117 
023712 111 
023715 123 
720 103 
023723 101 
023726 132 
023731 117 
023734 111 
023737 
023742 
023745 122 
4177 023747 103 
023752 114 
023755 116 
3760 
023763 124 
023766 116 
023771 117 
023774 124 
023777 040 
127 
111 
024010 040 
024013 
024016 105 
024021 105 
4178 024024 102 
024027 123 
024032 054 
024035 061 
024040 1 
024043 117 
024046 124 
024051 040 
024054 122 
024057 111 
024062 116 
024065 040 


EM145: 


EM146: 


EM147: 


—EM150: 
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-ASCIZ /TIMEOUT IN ACCESSING THE LKS REGISTER/ 


.ASCIZ /ERROR IN STUCK AT ZERO BITS ON MER/ 


.ASCIZ \COULD NOT SET ONE OF THE R/W BITS ON THE MER\ 


.ASCIZ /BITS 0,2,14,15 ON THE MER DID NOT CLEAR ON RESET/ 


SEQ 0115 





K9 
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4179 


4181 


024101 
04 


123 


—M151: 


EM1S52: 


EM153: 


EM154: 
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.ASCIZ /TIMEOUT IN ACCESSING THE MER REGISTER/ 


.ASCIZ /ERROR IN THE DATA SHORTS AND STUCK AT MEMORY TEST/ 


.ASCIZ /PARITY ABORT OCCURED WITH PARITY ERROR DISABLED/ 


.ASCIZ /PARITY ABORT DID NOT OCCUR WITH PARITY ERROR ENABLED/ 





SEQ 0114 
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4183 


4184 


02453 
540 


EMi55: 


EM156: 


EM157: 


EMi60: 
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.ASCIZ /MER DIDN'T HAVE CORRECT ADDRESS BITS 11-17/ 


.ASCIZ /MER READ EXTENDED ADDRESS BITS HAS FAILED/ 


.ASCIZ /ERROR IN THE QUICK VERIFY MEMORY TEST/ 


.ASCIZ /ERROR IN RCSR <6>/ 


SEQ 0115 
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GLOBAL ERROR MESSAGES 
4187 024617 116 117 
024622 130 


115 
02 124 040 
30 116 124 
024633 122 122 
36 120 124 
024641 040 110 
024644 126 
024647 117 103 
024652 125 122 
024655 104 
4188 024657 116 117 
4662 122 105 
4665 111 
70 105 
024673 116 124 
024676 122 122 
024701 120 124 
024704 040 110 
024707 


24720 104 
4189 024722 125 116 
ols 130 
0247 103 124 
024733 104 
4736 101 122 
024741 124 131 
024744 101 1 


4 110 101 
02475 117 
024760 103 125 
024763 105 104 

4190 024766 115 105 

771 104 

024774 1 116 

024777 124 040 

101 126 

040 103 

025010 122 122 

025013 103 124 

025016 101 104 

025021 122 105 
025024 123 

025027 111 124 
025032 043 

025035 040 101 
025040 104 

025043 065 000 

4191 025045 124 117 

025050 040 115 

025053 116 131 

025056 122 


EM161: 


EM162: 


EM163: 


EM164: 


EM165: 


.ASCIZ /NO XMIT INTERRUPTS HAVE OCCURED/ 


.ASCIZ /NO RECIEVE INTERRUPTS HAVE OCCURED/ 


.ASCIZ /UNEXPECTED PARITY ABORT HAS OCCURED/ 


.ASCIZ /MER DIDN'T HAVE CORRECT ADDRESS BITS# O AND 15/ 


.ASCIZ /TOO MANY TRANSIVER INTERRUPTS HAPPENED/ 


SEQ 0116 





025122 
25 


4194 0 


EM166: 


emi67: 


emi70: 


emi71: 


emi72: 


DH1: 


.ASCIZ 


.asciz 


-asciz 


.ASCIT 
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GLOBAL ERROR MESSAGES 


/TOO MANY RECEIVER INTERRUPTS HAPPENED/ 


ZERROR IN READY BIT OF CSR/ 


/NO CHARACTER RECEIVEJ/ 


/WRONG CHARACTER RECEIVED/ 


/ROM SIZE IS ZERO/ 


/ TEST ERROR/<15><12> 


SEQ 0117 


a 





B10 
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4199 $5833) 040 043 .ASCIZ / @ PC/ 


040 
025334 011 040 120 
025337 103 000 
4200 OSes: 40 124 105 DH4: ASCII / TEST ERROR EXPCTED RECEIVED/<15><12> 
123 124 Oil 
025347 105 122 122 
025352 117 122 011 
025355 105 130 120 
025360 103 124 105 
025363 104 O11 122 
025366 105 103 105 
Oseesi 1il 126 105 
4 104 015 012 
4201 025377 040 040 043 .ASCIZ / # PC DATA DATA/ 
025402 011 120 
025405 103 011 
025410 101 124 
025413 101 
025416 
025421 101 124 
025424 101 000 
4202 040 124 105 OHS: ASCII / TEST ERROR HITMIS DATA IN DATA IN/<15><12> 
025431 123 124 O11 
105 122 122 


025461 101 124 
025464 101 040 111 
025467 116 015 012 
4203 Osea rs 040 040 043 -ASCIZ / @# PC REG. CACHE MEMORY/ 
011 040 120 
103 011 
025503 122 1 107 
025506 O11 103 
511 101 103 110 
514 105 011 115 
025517 105 115 117 
025522 122 131 000 ' 
4204 025525 040 124 105 DH7: ASCII / TEST ERROR ADDRESS MSER/<15><12> 
025530 123 124 011 
Osanee 1 122 122 
117 122 Oil 
025541 101 104 et: 


: 


or 
View 
°o 
= 
S 


os -ASCIZ / @ PC ACCESSED/ 


45 
ao 
ree 
mo 
Ww 
To 
mo 
Ww 
~ 

a 





TT LT — 
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025576 104 000 
4206 025600 040 124 105 DH24: .ASCII / TEST ERROR - NUMBER/<15><12> 


025617 1 105 122 
025622 015 O12 
4207 025624 040 040 043 .ASCIZ / @# PC OF HITS/ 


4208 025644 105 122 122 DH27: .ASCII \ERROR ERROR MSER HIT/MISS\<15><12> 


111 124 7 
025671 115 111 123 
025674 123 015 O12 
4209 025677 040 040 043 -ASCIZ / #@# PC/ 
025702 011 040 120 
025705 103 000 
4210 025707 040 124 105 DH41: .ASCII / TEST ERROR INSTRUCTION/<15><12> 
712 123 124 O11 
15 105 122 122 
025720 117 122 Oil 
025723 111 116 


025737 Ole 
4211 025740 040 040 043 .ASCIZ / #@# PC OPCODE/ 
025743 011 120 
46 103 011 
025751 117 103 
734 117 104 
025757 000 
4212 025760 040 124 105 DH43:  .ASCII / TEST ERROR EXPECTD RECEIVD CACHE/<15><12> 
025763 123 011 
025766 105 122 
025771 117 122 011 
025774 105 130 
025777 105 103 1 
104 011 122 
105 103 
026010 111 126 1 


osease 015 Ole 
4213 02602 040 040 043 .ASCIZ / # PC DATA DATA LOCATION/ 
026026 Oil 120 
026031 103 O11 
34 04 101 124 





4214 0 


4216 026145 
50 


DH105: 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 
GLOBAL ERROR MESSAGES 


-ASCII 


.ASCIZ 


.ASCITI 


-ASCIZ 


-ASCII 


.ASCIZ 


.ASCIT 


.ASCIZ 
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/ 


TEST ERROR 


TEST ERROR 


TEST ERROR 


ADDRESS ADDRESS/<15><12> 


<21-16> <15-0>/ 


PRIORITY/<15><12> 


LEVEL/ 


ADDRESS/<15><12> 


FAILED/ 


RBUF /<15><12> 


SEQ 0120 





E10 
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GLOBAL ERROR MESSAGES 


026305 103 

4222 026307 040 
026312 123 
026315 105 
026320 117 
026323 115 
026326 122 
026331 104 
026334 105 
026337 015 

4223 026341 040 
026344 011 
026347 103 
026352 011 
026355 103 
026360 123 
026363 000 

4224 026364 040 
026367 123 
026372 105 
026375 117 
026400 011 
026403 040 
026406 124 
026411 040 
026414 122 
026417 
026422 122 
026425 101 
026430 O12 

4225 026431 040 
026434 O11 
026437 103 
026442 120 
026445 124 
026450 116 
026453 040 
026456 105 
026461 040 
026464 040 
026467 040 
026472 104 
026475 105 

500 

4226 

4227 

4228 026502 1162 

4229 026510 001162 
026516 177746 

4230 026522 0011 
026530 

4231 026536 001162 
026544 177744 

4232 026550 001162 
026556 3166 

4233 026562 001162 
026570 34 


123 


001116 
001116 
000000 


105 0DH115: 
0 


DH134: 


DTi: 
DT4: 


DTS: 
DT7: 
DT14: 
DT17: 


455 583 


-ASCII / TEST ERROR. MSER 


.ASCIZ / # PC 


.ASCII / TEST ERROR 


$TMP1, $ERRPC,O 
$TMP1, $ERRPC,R1,CCR,O 


$TMP1, SERRPC,R2,R1,$GDDAT ,O 
$TMP1, $ERRPC, $BDADR,MSER,O 
$TMP1, $ERRPC, $GDDAT, TSTLOC,0O 
$TMP1, $F°RPC, $GDDAT ,RECDAT ,O 


ADDRESS/<15><12> 


ACCESSED/ 


DATA PAR  VIRTUAL/<15><12> 


PATTERN READ 





SEQ O12) 





F10 


4234 026574 
4235 026604 
026612 
4236 026616 
4237 026630 
026636 
4238 026640 
4239 026654 
026662 


026674 
4241 026700 
026706 
4242 026712 
026720 
4243 0267 
4244 026736 
026744 
4245 026746 
026754 
4246 026760 
026766 
4247 026770 
026776 
4248 027004 
4249 02701le 
027020 
027026 





004168 


001116 
001116 
000000 
001116 
000000 
001116 
001116 
001122 
001116 
000000 
001116 
000000 
001116 
000000 
001116 
000000 
001116 
000000 
001116 


000003 
177744 
001124 
001126 
sons 
172354 
000001 
001124 
001124 
001124 
001124 
001124 
177562 
sags 


000000 
001124 


001122 


DT24: 
DT27: 
DT3S: 
DT41: 
DOT43: 
DT47: 
DTSO: 
DTS1: 
DTS2: 
DT64: 
DT65: 
DT7S: 


DT105: 
DT115: 


DT130: 
DT134: 


SPEERELELEELLEE 
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SEQ O20 


$TMP1, $ERRPC ,R3,0 

$TMP1, $ERRPC ,MSER,R3,0 

$TMP1, $ERRPC, $GDDAT ,MSER,O 
$TMP1, $ERRPC, $BDDAT ,O 

$TMP1, $ERRPC,R1,RECDAT, $BDADR ,O 
$TMP1, $ERRPC ,KIPAR6, $BDADR ,O 
$TMP1, $ERRPC,R1, $BDADR,O 

$TMP1, $ERRPC, $GDDAT ,PCR,0O 
$TMP1, $ERRPC, $GDDAT ,BCSR ,O 
$TMP1, $ERRPC, $GDDAT ,LKSFL ,O 
$TMP1, $ERRPC, $GDDAT ,O 

$TMP1, $ERRPC, $GDDAT , $BDDAT ,O 
$TMP1, $ERRPC ,RBUF ,O 

$TMP1, $ERRPC , $BDDAT , KIPAR6, $BDADR ,O 


$TMP1, $8DADR ,O 
$TMP1, $ERRPC, $GDDAT , $BDDAT , KIPAR2, $BDADR , 0 


EEE el oe 
SS ————————————— LS TS _——————- 





4251 
4 


7030 


4279 0271 


4302 204 
4303 027210 
4304 

4305 027216 
4306 027220 
4307 027222 


0062 
053737 


005720 
000401 


001162 
001102 
001175 


001114 


001116 


001324 
027114 


001175 
027132 


001175 


001175 


001160 
001160 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 
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001162 


027216 


027216 


Wednesday 09-Apr-86 09:43 Page 39 
SEQ 0123 


.SBTTL MODIFIED ERROR MESSAGE TYPEOUT ROUTINE 
5 RRA AA AERA AREAS AEA EA EAE AA AAE ASAE EEE EE EES SEES EEE EE ESSE EEE EE EE ED OS 
;*#THIS ROUTINE USES THE “ITEM CONTROL My 02 AP. TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTA THE “ERROR TABLE” (SERRTB), 
Pee REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SS THE ONLY a 4 ee BETWEEN THIS ROUTINE AND THE ORIGINAL “$ERRTYP” FROM 

: #SYSMAC IS THAT YOU CAN PASS INFORMATION IN GENERAL PURPOSE REGISTERS TO THIS 
*ROUTINE. THE GENERAL PURPOSE REGISTERS USED ARE TO BE SPECIFIED IN DTs 

FORMAT. RO SHOULD NOT BE USED. 


ERTYPE: 
CLR 1 ;;JUST CLEAR IT 
MOVB = $TSTNM, $TMP1 : s STORE TEST R 
TYPE $CPLF RETURN” & “LINE FEED” 
MOV RO, -<SP) SAVE RO 
CLR RO ;;PICKUP THE ITEM INDEX 
BISB #§ aé$ITEMB,RO 
BNE $ ;;IF ITEM NUMBER IS ZERO, JUST 
;;TYPE THE PC OF THE ERROR 
MOV $ERRPC, -( SP) 11h VE FERRPC FOR TYPEOUT 
TYPOC ‘'GO TYPE--OCTAL ASCIICALL DIGITS) 
BR 6$ :;GET OUT 
1$: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
ASL RO 3 WORK FOR THE ERROR TABLE 
ASL RO 
ASL RO 
ADD #$ERRTB,RO : FORM TABLE POINTER 
MOV (RO)+,2$ ;PICKUP “ERROR MESSAGE” POINTER 
BEG. 3$ ‘SKIP TYPEOUT IF NO POINTER 
2$: ‘WORD 0 ; ERROR MESSAGE POINTER GOES HERE 
TYPE $CRLF >;"CARRIAGE RETURN” & "LINE FEED” 
3$: MOV (RO)+,4$ ;;PICKUP “DATA HEADER" POINTER 
BEG S$ SKIP TYPEOUT IF O 
TYPE ;:TYPE THE "DATA HEADER” 
4$: .WORD 0 :;"DATA HEADER” POINTER GOES 
TYPE $CRLF ;; “CARRI RET “" €& “LINE FEED” 
S$: MOV (RO), RO : PICKUP "DATA TABLE” POINTER 
BNE 7$ 73 T THE DAT 
6$: MOV (SP)+,RO :3 RO 
TYPE $CRLF >; "CARRIAGE RETURN" & “LINE FEED” 
os RTS PC $3 
CMP (RO), #5 »;GENERAL PURPOSE REGISTER? 
BHI 9 ‘IF NOT, GO TYPE DATA 
BIC _ SRE * CLEAR BITS FOR SOURCE REGISTER 
MOV CRO), $TMPO ;;SAVE CRO) 
SWAB ;:GET REGISTER NUMBER TO HIGH BYTE 
ASR sTHPO ;:GET REGISTER NUMBER TO BITS 8-6 
BIS $TMPO, 8$ ;;SET BITS IN MOV INSTRUCTION 
; ACCORDING TO REGISTER NUMBER 
8$: MOV RO, -(SP) :;MOVE CONTEXT OF REGISTER TO STACK 
TST (RO)+ : sADVANCE POINTER 
BR 10$ ‘G0 T YPE 








| H10 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesdey 09-Apr-86 09:43 Page 59-1 
MODIFIED ERROR MESSAGE 


4308 027224 
4309 226 


4348 306 
4349 027312 
ret 027316 


013046 
04402 


012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 
012701 
004737 


TYPEOUT ROUTINE 


027242 
040 000 


172240 
027410 
17 


9$: MOV a(RO)+,-(SP) 
10$: TYPUC 

TST (RO) 

BEQ 6$ 

TYPE 11$ 

BR 73 
11$: ASCIZ / / 

EVEN 


TYPE --OCTAL 
ANOTHER 


3 IF NO 
33TYPE TWOC2) SPACES 
;;TWOC2) SPACES 


.SBTTL GLOBAL SUBROUTINES SECTION 


i+ 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
IN MORE THAN ONE TEST. 


; THAT ARE USED 


; "FUNCTIONAL DESCRIPTION: 
; SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS 


; INPUTS: NONE 
; OUTPUTS: NONE 


; FUNCTIONAL SIDE EFFECTS: NONE 


; CALLING SEQUENCE: JSR 
INITMM: MOV #172240,R1 
JSR PC ARS 
MOV #172260,R1 
JSR PC ARS 
MOV #172340,R1 
JSR PC DPARS 
MOV #172360,R1 
JSR PC OPARS 
MOV $177640,R1 
JSR pC ARS 
MOV #177660,R1 
JSR PC DPARS 
MOV #177600,R1 
JSR PC 
MOV #177620,R1 
JSR PC S 
MOV #172300,R1 
JSR PC S 
MOV #172320,R1 
JSR PC S 
MOV #172200,R1 
JSR PC S 
MOV #172220,R1 
JSR PC, S 
RTS PC 


; SUBORDINATE ROUTINES USED: LOAD PARS 
LOAD PDRS 


PC, INITMM 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 
;BASE 


;RETURN 


ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 


;:;I1F NOT GPR, SAVE @(RO)+ FOR TYPEQUT 
: ASCI tS DIGITS) 


SIPARS 
SDPARS 
KIPARS 
KDPARS 
UIPARS 
UDPARS 
UIPORS 
UDPORS 
KIPORS 
KDPORS 
SIPORS 
SDPORS 





SEQ 0124 
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GLOBAL SUBROUTINES SECTION 


4366 
4367 FUNCTIONAL DESCRIPTION: 

4368 ee GUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGIS)ERS (PARS). 
4369 ; THIS ROUTINE WILL INITIALIZE 6 PARS STARTING AT A BASE ADDRESS 
4370 ; SUPPLIED ey THE CALLING ROUTINE. PARS 0-5 WILL BE MAPPED FROM 
4371 ; ADDRESS © TO ADDRESS 137777 (0- 24K). PAR 6 WILL BE MAPPED FROM 
4372 ADDRESS 200000 TO 217777 AND PAR 7 WILL BE MAPPED TO THE 1/0 
4374 ; 

4375 ; INPUTS: 

4376 ; R1 CONTAINS THE BASE ADDRESS OF THE NEXT 8 PARS TO BE INITIALIZED 
4378 ; OUTPUTS: NONE 

4380 ; SUBORDINATE ROUTINES USED: NONE 

4382 ; FUNCTIONAL SIDE EFFECTS: NONE 

4384 ; CALLING SEQUENCE: JSR PC,LDPARS 

4386 027410 012702 000006 LDPARS: MOV #6, R2 ;LET LOOP COUNTER COUNT FIRST 6 PARS 
4387 027414 005003 CLR R3 ; INITIALIZE INDEX VALUE 

4388 027416 010321 1$: MOV R3 (R1)+ :LOAD PARS 

4389 027420 062703 000200 ADD $200, R3 ; INDEX IN 4K INCREMENTS 

4390 027424 077204 SOB R2 1s ;LOAD FIRST. SIX PARS 

4391 027426 012721 002000 MOV #2000, (R1)+ ;LET PAR6 MAP TO 200000 

4392 027432 012711 177600 MOV 3177600, (R1) ‘LET PAR7 MAP TO 1/0 PAGE 

4393 027436 000207 RTS PC ;RET 
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GLOBAL SUBROUTINES SECTION 


4421 027462 


; INPUTS: 


| FUNCTIONAL DESCRIPTION: 
SUBROUTINE 


NE TO INITIALIZE ALL THE MMU PAGE DECRIPTOR REGISTERS (PORS). 
ROUTINE. PORS 0-5 WILL. BE e INI TIALTZED TO 


L BE INITIALIZED T 
4K READ/WRITE NO BYPASS. 
NOTE: THERE IS NO NEED TO BYPASS a I/0 PAGE REFERENCES BECAUSE 
THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES. 


Ri CONTAINS THE BASE ADDRESS OF THE NEXT 8 PDRS TO BE INITIALIZED 


; OUTPUTS: NONE 
; SUBORDINATE ROUTINES USED: NONE 
; FUNCTIONAL SIDE EFFECTS: NONE 


; CALLING SEQUENCE: JSR PC,LDPARS 
LDPDRS: MOV #6 R2 ;LET LOOP COUNTER COUNT FIRST 6 PARS 
1$: MOV #177406, (R1)+ ;LOAD PDRS WITH 4K READ/WRITE BYPASS 
SOB R2 i sLOAD , FIRST SIX PDRS 
MOV #77406, (R1)+ ;LET PAR6 BE 4K READ/WRITE NO BYPASS 
MOV #77406, (R1) ;LET PART BE 4K READ/WRITE NO BYPASS ALSO 
RTS PC ; RETURN 








011637 
032737 
001401 
104004 


032737 
001401 
104004 


005037 
000002 
005237 
000002 
022737 
001402 
005237 
000002 


032737 
001401 
000207 


013701 





001122 
000100 


002404 


001000 


000004 
027740 
000340 
001160 
170000 


177744 


177744 


177750 
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SEQ 0127 
FUNCTIONAL DESCRIP TION: 
SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAM TESTS. 
; INPUTS: 
; MEMORY SYSTEM ERROR REGISTER CONTAINS BITS INDICATING FAILURE 
; OUTPUTS: NONE 
; SUBORDINATE ROUTINES USED: NONE 
; FUNCTIONAL SIDE EFFECTS: NONE 
; CALLING SEQUENCE:  GALLED BY PARITY ABORT 
; MOV agi14, SL AVE CONTENTS OF PARITY ABORT VECTOR 
; MOV Sep AR, 38114 .LET VECTOR POINT TO PARITY ABORT ROUTINE 
(CACHE PARITY ERROR OCCURS) 
RAMPAR: MOV (SP), $BDADR ;STOR ADDESS TRAPPED 
BIT #B1T06, MSER ;IF LOW BYTE PARITY ERROR 
BEQ 1 ; THEN 
ERROR +4 3 
1$: BIT #81107, MSER ;IF HIGH BYT 
; BEQ 2$ ; THEN 
: ERROR +4 ERROR 
2$: BIT #BIT05, MSER ;IF TAG PARITY ERROR 
BEQ 3$ ;T 
33; CLR —sMSER INITIALIZE MSER AFTER ERROR 
RTI ;RETURN 
LKSINT: INC LKSFL ; INCREMENT FLAG 
oonn 83, lkent 
>: 38Cmp cn 
beq 10i$ 
inc lkent 
101$: rti 
_SBTTL Q@22BE SIZE ROUTI 
‘THIS ROUTINE WILL AUTOSIZE FOR UP TO TWO Q22 BUS EXERCISERS. IF NONE 
;FOUND LOCATIONS CSR1 AND CSR12 WILL BE LEFT ZEROES. THIS ROUTINE WILL 
;ONLY RUN IN NO 
Q22SIZ: BIT #B1T09,MAIREG UNIBUS SYSTEM? 
BEQ si iT NOT. “ADVANCE TO ROUTINE 
RTS PC OTHERWISE, RE 
i 
; PREPARE TO DO SIZING 
; 
i$: MOV ERRVEC Ri ; STORE TIMEOUT VECTOR 
MOV $7$ ,ERRVE :POINT NEW TO PROGRAM 
MOV 9340 ERRVEC 2 ;AT PRIORITY °, 
CLR ~- ae ;CLEAR Q@22BE COUNTER 
MOV 3170000, R2 ‘FIRST POSSIBLE ADDRESS 


as ne, a 





L10 
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Q22BE SIZE ROUTINE 

4480 027610 012703 
000404 


4481 027614 
4482 

4483 

4484 

4485 027616 
4486 02 


4S25 
4526 
4S27 





000510 


002352 


001160 


IF NO TIMEOUT, STORE EXISTING ADDRESSES TO REGISTERS 


; ON TIMEOUT TRY TO LOOK AT NEXT ADDRESS RANGE 


MOV #510,R3 
BR 33 
; ‘ NOW DO ACTUAL SIZING 
bs; ADD #20,R2 
ADD #4,R3 
3$: TST (R2) 
5 
; 
TST $TMPO 
BNE $ 
MOV @CSRI RS 
MOV R2,SI 
ADD #16, STRROA 
BR S$ 
4s: MOV ¥CSR12,R5 
5$: MOV #4 ,R4 
MOV R2,(R5) 
6$: MOV CRS), 2(R5) 
TST (R5)+ 
ADD #2, (R5) 
SOB R4.6$ 
MOV R3,2(R5) 
MOV R3,4(R5) 
ADD #2.4(R5) 
INC 
CMP #2, $TMPO 
BEQ 
BR Bs 
7$: TST (SP)+ 
TST (SP)+ 
8$: CMP #170160,R2 
BNE 2$ 
9$: TST CSR1 
BEQ 10$ 
TYPE 2 
10$: MOV Ri, ERRVEC 
RTS 
ONOQ22: .ASCIZ 


.EVEN 
.SBTTL Q22BE INTERRUPT INITIALISE ROUTINE 
;THIS ROUTINE WILL INITIALISE Q22BE TO 


Wednesday 09-Apr-86 09:43 


<12><15>/Q22BE USED DURING TESTING/ 





SEQ 0128 


;VECTOR FOR IT 
;TRY THOSE VALUES 


;GET CSR FOR NEXT Q22BE 
;GET VECTOR FOR NEXT ONE 
;TRY TO ACCESS CSR 


;FIRST Q22BE FOUND? 

;IF SECOND, BRANCH 

;START WITH CSR1 FOR 1ST 
ess GO 

;BRANCH TO INITIALISE 
s;START WITH CSR12 FOR 2ND 
;INITIALISE 5 REGISTERS 

: INITIAL ISE CSR1 


;D0 
;STORE INTERRUPT VECTOR 
;AND PRIORITY 


;COUNT Q22BE'S 

;TWO FOUND? 

;IF SO, STOP SIZING 
;OTHERWISE, CONTINUE SIZING 


;RESTORE STACK FROM 


SAT THE LAST POSSIBLE? 


;IF NOT, BR 
;1 FOUND? 
;1— NONE, BRANCH 


; TYPE FOUND 
sRESTORE TIMEOUT VECTOR 
;RETURN 


INTERRUPT AT A PRIORITY AT (RO)+ 





M10 


45268 





012777 
005700 


012777 
005700 


000411 
012777 
012777 


011637 
104041 


012525 


001001 
001601 
002740 
177777 
000001 
152212 


002740 


001507 
177770 
001001 


001407 
177777 
000001 
152122 


001122 
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SEQ 0129 


;AT THE STARTING ADDRESS IN RS. we TEST HAVE TO SET ACTUAL DONE BIT 
;BY CLEARING GO. 


Q@22INT: CLR (R3) ;CLEAR TRANSFER TYPE IN CSR1 
BIS #BITOO, (RO) ; ZERO 
MOV CRO) 2(R3) SET PRIORITY IN CSR2 
BIC IT00, (RO) ;PREPARE TO SET DONE 


.SBTTL DMATRN DATO CYCLE THRU Q22BE 
NE PER 


; THIS ROUTI FORMS DATO FROM A LOCATION TEMP THRU THE FIRST 
:FOUND Q22BE STARTING aT LOCATION @CSR1. RO HAS O IF ONLY 1 TRANSFER IS 
PE D. SE 16 BLOCK MODE TRANSFERS ARE TO BE PERFORMED. 
‘IN THE LATTER CASE ADDRESS AND WORD COUNT HAS TO BE LOADED BEFORE. 
DMATRN: MOV #12525, @DATA ;DATA USED 
TST RO ;D0 1 WORD? 
BEQ 1$ ;IF YES, BRANCH 
MOV #B1T09!BITOO, ACSR2 ;BL GO 
BR ;BRANCH TO DO IT 
1$: MOV #1601, acsrl ;RESET LATENCY COUNT. DATO 
MOV rs :LOAD DMA ADDRESS 
MOV aT auc ;D0 1 
MOV #BITOO, ACSR2 ;D0 IT 
2$: TSTB acsRe ;DMA ? 
BPL 2§ “WAIT TILL DONE 
3$: RTS PC :RETURN FROM SUBROUTINE 
_SBTTL DMARD DATI THRU Q22BE 
:THIS ROUTINE PERFORMS DATI CYCLE THRU Q22BE IN EITHER BLOCK MODE OR A SINGLE 
TRANSFER MODE. MEMORY LOCATION USED IS TEMP. RO IS ZERO FOR SINGLE TRANSFER 
DMARD: MOV STEMP , aBA ;LOAD DMA ADDRESS 
TST RO ;DO 1 WORD? 
BEQ 1$ :IF YES, BRANCH 
MOV #1507, @CSR1 ;16 DATIB 
MOV #177770, aWC :DO 8 WORD 
MOV SBIT09!BITOO, ACSR2 :BLOCK MODE GO 
BR 2$ CHECK 
1s: MOV #1407, @CSR1 "RESET LATENCY COUNT, DATI 
;LOAD NEW DATA TO DATA R. 
MOV #177777, @WC :DO 1 WORD 
MOV #81T00, ACSR2 :DO IT 
2$: TSTB © ACSR2 ;DMA DONE? 
BPL 2§ ‘WAIT TILL DONE 
3$: RTS PC ;RETURN FROM SUBROUTINE 
TOUT: MOV (SP), $BDADR sSTORE TRAPPED PC 
ERROR 41 ;UNEXPECTED TRAP 


; 
;MMU GLOBAL SUBROUTINES 
; 
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DMARD DATI THRU Q@22BE 


077406 
000001 


000200 
001600 
177600 


003032 


177776 
177764 
000002 


MACRO VO5.03 


172516 


000001 


;ROUTINE TO INITIALIZE MEMORY MANAGEMEN 


‘ 
MMU: MOV 


RTS 


PC. PAR 
#27 , #172516 
(SP )., 
(SP)+,R1 
(SP)+,RO 

PC 


INITIALIZE PDR'S 


R2 
#77406 , (RO)+ 
#16. ,R2 
PORI 


INITIALIZE PAR'S 


p 
#177600, (RO)+ 
PC 


; TIME OUT ROUTINE 


AppTRP: INC 
RTI 


R5 


‘MMU TRAP ROUTINE 


HMUTRP: CMP 


BEQ 
ERROR 


1$; MOV 


FLAG, #1 
1$ 
+2 


RO,- SP) 
9#177776,RO0 
RO 
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SEQ 0130 


;SAVE CONTENTS OF REGISTERS 


2 
OHHOHH OFF 


KER PAR’ 


; INIT MMR 
;RESTORE REGISTERS 
; 


; RETURN 


; INCREMENT TIME OUT FLAG 
;RETURN 


;ARE WE eos AN ABORT 


;NO GO TO ERROR 

“SAVE CONTENTS OF REG 0 
SSAVE A COPY OF PSW 
‘POOK AT BITS<15:14> 
SWIAS PS<15:14>=10 


;NO GO ON 
;YES CHANGE BITS TO 00 








en ea, 
ae eee ee 


- RET 
i. - 
COKDOBO KDUJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 09-Apr-86 09:43 Page 42-4 sia dae 
OMARD DATI THRU @22BE a 
4643 030436 013700 177776 OK MOV @9177776,RO ;SAVE A COPY OF PSW 
072027 ASH #2 ,RO 3 ;LOOK AT BITS<13:12> 
4645 030446 072027 177764 ASH #-14,RO : 
7 CMP #2 ;WAS PS<13:12>=10 
4647 030456 001002 BNE 1 ; 
0 NOTOK: CLR 4(SP) ;CLEAR ILLEGAL MODE FFROM OLD PSW 
013737 177572 003044 OK1: MOV #177572, SAVMRO ;SAVE A COPY OF MMRO 
4650 030472 177574 MOV 177574, SAVMRI ;SAVE A COPY OF MMR1 
4651 013737 177576 003050 MOV 9177576, SAVMR2 ;SAVE A COPY OF MMR2 
177572 R ae@177572 ;CLEAR ABORT BITS AND TURN MMU OFF 
4653 030512 005037 003032 CLR FLAG ;CLEAR ABORT FLAG 
4654 030516 012600 MOV (SP )+,RO ;RESTORE ORIGINAL CONTENTS OF REG O 
4655 030520 000002 RTI ;RET 








Cil 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5S.03 Wednesday 09-Apr-86 09:43 Page 45 


SEQ 0132 
DMARD DATI THRU Q@22BE 
4659 ;7PP COMMON SUBROUTINES 
4660 030522 012600 SLDTRP: MOV (SP)+,RO ;SAVE PC 
4661 030524 012605 MOV (SP)+.R5 :SAVE STATUS ND RESTORE STACK 
4662 030526 104003 ERROR +3 
4663 030530 000110 JMP (RO) ;GO BACK INLINE 
4665 ; 
4666 i 
4667 030532 RPFLG: .WORD 
4668 030534 000207 ERRFP: RTS R7 
4669 030536 000207 ERR: RTS R7 
4670 3 
4671 ; 
4672 ; 
4673 ; 
4674 ; 
4675 ; SUBROUTINE DATA VERFICATION - 
; 
4677 ; CALLED BY JSR R7,DATVER 
; 
4679 ; INPUT: (R4)=EXPECTED DATA 
4680 (R1)=RECEIVED DATA 
4682 ‘THIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE 
4683 SEQUAL TO THE FOUR WORDS ADDRESSED BY (R1). THE CONTENTS OF R4, AND R1 ARE NOT 
4685 ‘LOCAT ron “COUNT” . IF NOT EQUAL TO © SIGNIFIES DATA ERROR 
4686 ;IF THE STATUS IS b DATING MODE, THE LAST TWO BYTES OF RECEIEVED 
4687 ;ARE SIMPLY CHECKED FOR ZEROS 
se . 
4690 030540 010446 DATVFR: MOV R4,-(SP) ;SAVE R4 
4691 030542 010146 MOV Ri, -(SP) ;SAVE R1 
4692 030544 012737 000003 003124 MOV #3, COUNT SET UP LTERATION COUNT 
4693 030552 000137 030570 JMP DATi ; 
4695 030556 010446 BATVER: MOV _—_-R4, -( SP) SAVE R4 
46% 030560 010146 MOV R1,-(SP) ;SAVE Ri 
4697 030562 012737 000005 003124 MOV #5, COUNT ;SET UP ITERATION COUNT 
4698 030570 005337 003124 DAT1: DEC COUNT 
4699 030574 001402 BEQ 2$ ;BRANCH IF DONE 
4700 030576 022421 CMP (R4)+,(R1)+ ; 
4701 030600 001773 BEQ DATI 
4702 030602 012601 2$: MOV (SP)+,R1 ;RESTORE R1 
4703 030604 012604 MOV (SP)+,R4 ;RESTORE R4 
4704 030606 000207 RTS R7 ;GO BACK TO CALLING ROUTINE 
4705 ;IF DATA ERROR, COUNT NE O 








i 
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470/ SOPHO HEHEHE HES EE ESSE EEE ESE E SHEESH SESE HSH F EFF EF EEF EF EHO EEHEH FOE H HEHEHE 


pis. ; DELAY - INTERRUPT TIMER 

pie e This test is called by the interrupt receiver and transmitter 
4712 ; 

iii ALES ALES AEA SLES DOES SALLE SESE GLO ILD SLD EOS DES 
4714 030610 BELAY 

4715 030610 013746 000004 MOV av4 , -C(SP) ; SAVE 

4716 030614 013746 000006 MOV av6 , - (SP) ; OLD 

4717 030620 010046 MOV RO,-CSP) ; STACK 

a5i8 030622 010146 MOV R1,-CSP) ; AND REGS 

4720 030624 012737 030652 000004 MOV #2$ ,2804 ;SET TRAP 

4553 030632 106737 000006 MFPS a6 ;PUT PSW ON PS / SAME PRIORITY 
ph 030636 012700 000001 MOV #1.,RO ;SET OUTER LOOP COUNT 
pels 030642 012701 011610 3$: MOV #5000. ,R1 ;SET INNER LOOP 1/200TH 
4756 030646 005737 160000 1$: TST @#160000 ;TAKES ABOUT 10u SEC 
4729 030652 022626 2$: CMP (SP)+,CSP)+ ;CLEAN UP STACK 

4730 030654 077104 SOB R1i,1$ ;D0 INNER LOOP 

pitt 030656 077007 S08 RO,3$ ;00 OUTER LOOP 

4733 030660 012601 MOV CSP)+,Ri ;RESTORE 

4734 030662 012600 MOV (SP)+,RO ; WHAT 

4735 030664 012637 000006 MOV (SP )+,a#6 ; WE 

pit 030670 012637 9000004 MOV (SP)+,a04 : SAVED 

4738 030674 000207 RTS PC 

4739 





Ell 


4762 002 
4763 031010 
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SEQ 0134 


BSPSOSSSSSSSSS OS OOSGS 598 095899 98988 O 88 OHO HOO SO OOOO OO OOO OOOO OSS OOOO Oe 


- SET UP THE MMU REGISTERS 
This geet is called by the memory test to set up the PARS so 


all of memory is acce 


SET MMU 
MOV $0, @¢KIP 
MOV $200, @OKIPARL 
MOV #400, a@KIPARZ 
MOV $600, AHKIPARS 
MOV #1000, A#KIPAR4S 
MOV #1200, aKIP 
MOV #1400, aK IPARG 
MOV $177600 , B@KIPART 
MOV #10,R2 
MOV #iCIPDRO,R1 
10$: MOV #77406, (R1)+ 
SOB R2,10$ 
MOV #1 
MOV #8174, a#SR3 
RTS PC 


SUBR SET_UP MMU REGISTERS 
NT 16 PAGE 0 T0 teetr 


POINT TO 

POINT TO PAGE 5 TO ITSELF 

POINT TO PAGE 6 TO ITSELF 

POINT I/0 PAGE TO IT’S PLACE IN 22 BIT 

: SET UP PDR’S TO 4K R/W 

DOUNTIL WE HAVE INITIALIZED ALL OF THEM 
MEMORY MANAGEMENT 


ENABLE 
ENABLE 22 BIT ADDRESSING 
ENDSUBR SET_UP MMU REGISTERS 








3 
4784 031012 
012 


aie 031174 


012737 
012701 


112711 
00520 


172344 


172344 


172344 
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SEQ 01355 


SPOS SSSSSSSSOSSSSSHSH SSS HOSHGH SHO HOH HOH HO DHHS SH HOOD OLEOOOSHODOOOIOOS 


; INIMEM - FILL UP 


20$: 


30$: 


40$: 
50$: 


This test is called b 
memory to look like t 


#1600 , AKIPAR? 
#40000 ,R1 


#-1 + CR1) 

Ri 

R1, #60000 

$200 SMCIPAR2 
#160000 ,R1 
#40000 ,R1 
@eKIPAR2 , #20000 
40$ 

#0,(R1) 


#40000 
AHCIPAR2 , #20000 
40$ 

10$ 

PC 


eee oe =e 
aaa ———eereee 


the Quick verify memory test. It initializes 
following. 


SUBR INITIALIZE MEMORY 

POINT KPAR2 TO LOW ADDRESS 

SET VIRTUAL ADDRESS TO MAP THRU KPAR2 
» WRITE A -1 TO 0 OFFSET ADDRESS 

: TF WE HAVE PASSED THE PAGE BOUNDARY 
: : POINT KPAR2 TO A NEW PAGE 

CLEAR OUT THE PAGE POINTER 

POINT VIRTUAL ADDRESS TO KPAR2 


DOUNTIL WE HAVE READ ALL ADDRESSES 
: WRITE AO TO 1 OFFSET ADDRESS 
: IF WE HAVE PASSED THE PAGE BOUNDARY 
: POINT KPAR2 TO A NEW PAGE 
CLEAR OUT THE PAGE POINTER 
POINT VIRTUAL ADDRESS TO KPAR2 


OeerTe WE HAVE READ ALL ADDRESSES 
: we QO TO 2 OFFSET ADORESS 


ADDRESS BY 3 
: TF Me HAVE PASSED THE PAGE BOUNDARY 
: POINT KPAR2 TO A NEW PAGE 
CLEAR OUT THE PAGE POINTER 
POINT VIRTUAL ADDRESS TO KPAR2 


: ENDIF 
HOUNTIL WE HAVE READ ALL ADDRESSES 


ENDIF 
ENDSUBR INITIALIZE_MEMORY 
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5 
4836 031176 
4837 031176 


4838 204 
4839 031210 
4840 “ 


4862 031306 
4863 031310 
4864 031314 
4865 031316 
4866 031324 


4871 031346 


012737 


001600 
040000 
000003 


000200 
160000 


040000 
172344 


172344 


172344 


020000 


172344 


020000 


SEQ 0136 


FSSSSHSSSSSOSHHSSSHSHSSSOSOHSO SOS HOSOSH ODO D OSHS OHH DIS HOES ODOSOOOOOTS 


MEM - READ OR WRITE TO THE. MEMORY 


This test is called by the Quick verify memory test to Read or 
Write to memory. 


; 
; 
' R3 = OPERATION TO BE PERFORMED 
; © - READ 

1 - WRITE 

; 


R4 = THE ADDRESS INCREMENT 
R5 = THE EXPECTED PATTERN 


RWTMEM: ; SUBR READ_WRITE_MEMORY 
MOV #1600, aK IPAR2 ; POINT TO KPAR2 TO LOW ADDRESS 
MOV RL ; POINT TO PAGE 2 VIRTUAL ADDRESS 
MOV #3,R2 ; WE ARE BUMPING UP BY 3 
SUB R4,R2 ; SUBTRACT OFF ADDRESS INCREMENT 
10$: ; BGNDO 
ADD R4,R1 ; : GET ADDRESS TO LOOK AT 
CMP 1. #60000 ; : IF WE HAVE PASSED THE PAGE BOUNDARY 
BLO 15$ ; : : THEN 
ADD $200, AKIPAR2 ; POINT KPAR2 TO A NEW PAGE 
BIC #160000 ,R1 ; CLEAR OUT THE PAGE BITS 
BIS #40000, R1 ; SET THEM BACK TO PAGE 2 
CMP AHCKIPAR2 , #20000 ; IF 
BEQ 40$ a 
15$: TST R3 ; : IF THE OPERATION IS A READ 
BNE 20$ ; oo: : THEN 
CMPB sé, (R21) ; IF CONTENTS <> EXPECTED PATTERN 
BEQ $ ; : THEN 
MOV  $GDDAT ; GET THE EXPECTED PATTERN 
MOVB (Ri), $BDDAT ; GET THE RECIEVED PATTERN 
MOV R1, $BD ; : GET THE VIRTUAL ADDRESS 
ERROR +66 ; : ERROR IN 
BR 30$ ; ENDIF | 
20$: ; ELSE 
MOVB ~—_-RX'S, (R11) ; WRITE PATTERN TO MEMORY 
30$: ; : ENDIF 
ADD R2,R1 ; : ADD ON DIFFERENCE TO GET ADDRESS-3 
CHP Ri , #60000 ; : IF WE HAVE PASSED THE PAGE BOUNDARY 
; . o 
ADD $200 , BAKIPAR2 ; INT KPAR2 TO A NEW PAGE 
BIC #160000 ,R1 ; CLEAR OUT THE PAGE BITS 
BIS #40000 Ri ; ise" PAGE BITS BACK TO PAGE 2 
» #20000 s fk 
BEQ 40§ ; DOUNTIL WE HAVE READ ALL ADDRESSES 
i 3 
40$: RTS PC ; ENDSUBR READ_WRITE_MEMORY 








a  —_—_— 
Hil 
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SEG 0137 


4873 ef Saag ag lS lleeliaaeaaaanaalatataialaliaiaiaiaaialalaiaainini 

pr th ; - READ THE MEMORY 7 

4877 ; This test is called by the memory test write to memory 

4878 ; R4 = THE ADDRESS INCREMENT 

4879 ; RS = THE EXPECTED PATTERN 

4881 031350 RRMEM: ; SUBR READ_LOCATIONS_0,1 

4882 031350 012737 001600 172344 MOV #1600, A#KIPAR2 ; LET PAR POINT TO LOW ADDRESS 

4883 031356 012701 040000 MOV #40000 ,R1 ; POINT TO KPAR2 VIRTUAL ADDRESS 

4884 031362 10$: ; BGNDO 

4885 031362 111137 001126 MOVB  (R1),$BDDAT ; +: GET A COPY OF RECIEVED PATTERN 
03 122737 177777 001126 CMPB —s.-s« --1, SBD DAT ; : IF © OFFSET ADDRESS <> -1 THEN 

4887 031374 001406 BEQ 15$ ; + €RROR IN MEMORY 

4888 031376 012737 177777 001124 MOV #-1,$GDDAT : +: GET THE EXPECTED PATTERN 
031 010137 001122 MOV R1, $BDADR ; : GET THE VIRTUAL ADDRESS 
031410 1 ERROR + _ 

4891 031412 005201 15$: INC 1 ; : POINT TO 1 OFFSET ADDRESS 
031414 020127 060000 CMP R1, #60000 «Fe HAVE PASSED THE PAGE BOUNDARY 

93 031 103413 BLO 20$ ; : ¢ THEN 

4894 031422 062737 000200 172344 ADD $200, BKIPAR2 ; +: + POINT KPAR2 TO A NEW PAGE 

4895 031430 042701 160000 BIC #160000, R1 ; +: : CLEAR THE PAGE BITS 

489% 031434 701 040000 BIS #40000 ,R1 ; +: : POINT BACK TO PAGE 2 

4897 031440 023727 172344 020000 CMP @PKIPAR2 , #20000 ; : ENDIF 

4898 031 001435 BEQ 40$ a 4 

4899 031450 111137 001126 20$: MOVB  (R1),$BDDAT ; 3 GET THE RECIEVED PATTERN 

4900 031454 122737 177777 001126 CMPB -1, $BDDAT ; : IF 1 OFFSET ADDRESS <> -1 THEN 

4901 031462 001 BEQ ; ERROR IN MEMORY 
031 112737 177777 001124 MOVB 1, $GDDAT ; : GET THE EXPECTED PATTERN 

4908 031472 011137 001122 MOV cri. $BDADR ; : GET THE VIRTUAL ADDRESS 

4904 031476 1 ERROR +66 “A 

4905 031500 062701 000002 30$: ADD #2,R1 ; : ADD 2 TO ADDRESS TO GET ADDRESS + 3 
031 020127 060000 CMe Ri ; : IF WE HAVE PASSED THE PAGE BOUNDARY 

4907 031510 103724 BLO 10 ; : : THEN 

4908 031512 062737 000200 172344 ADD #200 BeK IPARZ ; POINT KPAR2 TO A NEW PAGE 
031 042701 160000 BIC #160000 ,R ; CLEAR THE PAGE BITS ~ 

4910 031524 052701 040000 BIS 240000 ; POINT BACK TO PAGE 2 

4911 031530 023727 172344 020000 CMP 240000, 6 ; 

4912 031536 001401 BEQ 40$ ; 

4913 031540 000710 BR 10$ ; 

4914 031542 000207 40$: RTS PC ; 
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DMARD DATI THRU G@22BE 


49 
4940 
4941 


4944 


4945 
4946 


031544 
031544 


104401 031552 
000207 
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SEQ 0138 


$$$ | 
SUBROUTINE - DETERMINE FLOATING POINT ACCELERATOR (DETFPA) 


i 
i 
; THIS SUBROUTINE IS CALLED IF AN ERROR IS DETECTED DURING EXECUTION OF THE 
; FLOATING POINT TESTS. 
; IT DETERMINES WHEATHER OR NOT THE FLOATING POINT ACCELERATOR CHIP OPTION 
; ON THE CPU BOARD AND PRINTS THE APPROPRIATE ERROR MESSAGE. 

; 


THIS DETERMINATION IS HE “FPA AVAILABLE” FL 
OF MAINTENANCE REGISTER AT LOCATION 17777750. IF THE FPA BIT IS SET 
; THEN THE FLOATING POINT ACCELERATOR CHIP IS INSTALLED ON THE CPU BOARD 
SSAGE IS PRINTED WHICH STATES THAT THE FLOATING POINT ERROR IS 
+ OUE TO THIS CHIP. OTHERWISE, THE J11 IS BLAMED FOR THE FLOATING POINT ERROR 
$$$ 
‘ CALLED BY: CALL QYDETFPA ; $$$ 
; INPUTS: NONE 5$$$ 
; OUTPUTS: ERROR MESSAGES $$$ 
DETFPA: 
TYPE JLIFLT ; $$$ 
RTS PC ; $$$ 
; 
“11FLT: .ASCIZ /ERROR DETECTED IN J11 FLOATING POINT PROCESSOR./ ; $$$ 


. EVEN ; $$$ 
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DMARD DATI THRU Q22BE 


4949 
4950 


4951 


4952 


031632 


03 
031765 


031766 
031766 


032737 
30 


104407 


031751 
001206 


031746 
000042 


001206 


123 
043 
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SEQ 0139 


.SBTTL END OF PASS ROUTINE 

Se Sy "Sy = =» mm gamcmemanmammammaaaes 
*#INCREMENT THE PASS NUMBER ($PASS) 

i INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
*TYPE “END ~— OXXXXX " oor XXXXX IS A DECIMAL NUMBER) 

IF THERES A MONITOR GO TO IT 

he THERE ISN’T JUMP TO [O0P 


BIT ys hed , 9#52 


BNE $GET42 
isr edad 
cir $TST ;;ZERO THE TEST NUMBER 
CLR $TIMES :;ZERO THE NUMBER OF ITERATIONS 
INC $PASS ; ;INCREMENT THE PASS NUMBER 
BIC $100000,$PASS ;;DON'T ALLOW A NEG. 
DEC PC). ; }LOOP? 
$EOPCT: . 
BGT $DOAGN > YES 
MOV (PC)+,a(PC)+ VIRESTORE COUNTER 
$ENDCT: .WORD 1 
$EOPCT 
TYPE $ENDMG ;TYPE “END PASS @” 
MOV $PASS, -(SP) SAVE $PASS FOR TYPEOUT 
TYPDS +760 --DECIMAL ASCII WITH SIGN 
TYPE  ,$E€NULL ;;TYPE A NULL CHARACTER 
$GET42: MOV a642 RO :;GET MONITOR ADDRESS 
BEQ $DOAGN ;;BRANCH IF NO MONITOR 
RESET 5:CLEAR THE WORLD 
$ENDAD: JSR PC,(RO) ;3G0 TO TOR 
NOP ; SAVE 
NOP ;3;FOR 
NOP ; ;ACTL1 
$DOAGN: 
UMP acPC)- ; ;RETURN 
$RTNAD: .WORD LOOP 
$ENULL: [BYTE -1,-1,0 ;NULL CHARACTER STRING 
SENDMG: “ASCIZ <1$><12>/END PASS #/ 


;*#THIS ROUTINE CONT LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*#AND LOAD THE TEST NUMBER($TSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*#AND LOAD THE LAG ($ERFLG) INTO DISPLAY<15:08> 
;*#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;*#SW14=1 LOOP ON TEST 
;*#SWli=1 INHIBIT ITERATIONS 
;*SWO9=1 LOOP ON 
; *SWO8=1 LOOP ON TEST IN SWR<5:0> 
;*CALL 
i SCOPE ; ;SCOPE=IOT 
SCOPE : 
CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 








K11 
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4953 


031770 
ys he 


052737 
032777 
001117 
000416 
013746 
012737 
005737 
012637 
000466 


001000 
040000 
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177520 
147134 


147066 


001103 
147022 
001106 


146770 


001104 


001104 
001164 


001204 


001115 
146670 


177520 


BIS #1000,BCSR ;ENABLE 
BIT 


1$: #81114, @SWR 


BNE $OVER 
SGGSTART OF CODE FOR THE XOR 
iYTSTR: BR 6$ 

MOV AVERRVEC, -(SP) 

MOV #5$ , AERRVEC 

TST a#177060 

MOV (SP)+, A#ERRVEC 

BR $SVLAD 
S$; CMP (SP)+,(SP)-+ 

MOV (SP)+, " AVERRVEC 
6$:;@¢4END OF CODE FOR THE XOR 

BIT #81708, aSWR 

BEQ 2$ 

MOV @SWR, -( SP) 

BIC a$$ (SP) 

CMPB =: (SP-)+, $TSTNM 

BEQ $OVER 
2$: TSTB ~—s_: $ERFLG 

BEQ 3 

CHPB $ERMAX, $ERFLG 

BIT #81109, @SWR 

BEQ 4$ 
7$: MOV $LPERR, $LPADR 

BR $OVER 
4$: CLRB SERFLG 

CLR $TIMES 

BR $ 
3$: BIT 981711, aSWR 

BNE 1$ 

TST $PASS 

BEQ i$ 

INC $ICNT 

CMP $TIMES, $ICNT 

BGE 
1$: MOV #1, $ICNT 

MOV $MXCNT , $TIMES 
$SVLAD: INCB $TSTNM 

MOVB § $TSTNM, $TESTN 

MOV (SP), $LPADR 

MOV (SP). $LPERR 

CLR $€ 

MOVB #1, $ERMAX 
$OVER: MOV $TSTNM, @DISPLAY 

MOV $LPADR, (SP) 

BIC #1000,B8CSR ;DISABLE 


$MXCNT: 1 
.SBTTL ERROR HANDLER ROUTINE 


SEQ 0140 


;;LOOP ON PRESENT TEST? 


THE “yg” TESTER CHANGE 
A_“NOP” (CNOP=240) 
OF THE ERROR VECTOR 


ON 

ORE THE ERROR VECTOR 

TO THE NEXT TEST 

; CLEAR THE STACK AFTER A TIME OUT 
Ay Ly. 4 ERROR VECTOR 

1 OOP ON THE PRESENT TEST 
ESTERGHOo 


;;LOOP ON SPEC. TEST? 


RED TEST NUM. FROM SWR 


$3 BITS 

$3 

;;BR IF Y 

;3;HA 

;;BR IF NO 

;;MAX. ERRORS FOR THIS TEST OCCURRED? 
;;BR IF NO 

+ ON ERROR? 

S ESET LOOP ADDRESS TO LAST SCOPE 


;;ZERO THE ERROR FLAG 
;;CLEAR THE NUMBER f° at TO MAKE 


;;ESCAPE TO THE NEXT 
; INHIBIT ITERATIONS? 
;;BR IF YES 
os ( FIRST PASS OF PROGRAM 
33 INHIBIT ITERATIONS 
ERATION COUNT 
+ NUMBER OF ITERATIONS MADE — 


ITERATION REQUIRED 
ST nrOer 6 THE ITERATION COUNTER 
OF ITERATIONS TO DO 


LOOP 
; THE ESCAPE FROM ERROR ADORESS 
;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
;DISPLAY TEST NUMBER 
;FUDGE RETURN ADDRESS 


;;MAX. NUMBER OF ITERATIONS 


334% ERREKEEEAEEREAAEEEAREREERERERERESERESESESEESESERESESEEEESEEE SS 
FLAG 


;#THIS ROUTINE WILL INCREMENT Le 
TEM NUMBER 


;#SAVE THE ERROR ITEM 
;*#AND GO TO ERTYPE ON ERROR 


LAG AND THE ERROR COUNT, 
HE ADDRESS OF THE ERROR CALL 








122737 
001007 
113737 
004737 

000 
000777 
005777 
100002 


104407 
032777 


Or trse 
013716 
005737 
001402 
013716 


022737 
001001 
000000 


004152 
000032 


146462 


—_—_—_$—_—$——_$—— LL 
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ERROR HANDLER ROUTINE 


SFQ@ 014] 


;*THE SWITCH val g PROVIDED BY THIS ROUTINE ARE: 


;#SW15=1 ERROR 
;*#5W13-1 INHIBIT ERROR TYPEOUTS 
;#5W10-1 BELL ON ERROR 
: #809 LOOP ON ERROR 
;* 
is ERROR +N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
_ TST UQUIET ;;TEST FOR USER-QUIET MODE 
BEQ 9$ ; ;BRANCH IF FIELD- 
CLR RO ;;IN CASE RO HAS A hd IN IT (7C) 
° JSR PC, ABORT ;;TEST FOR ABORT CONDITI 
CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 
BIS #1000, BCSR ENABLE HALT ON BREAK 
7$: ™CB 4s SEERFLG SET FL 
BEQ 7$ ;;DON‘T LET THE FLAG GO TO ZERO 
MOV $TSTNM,@DISPLAY ;;DISPLAY TES ERROR FLAG 
BIT #B1T10,3SWR ;:;BELL ON 
BEQ 1$ ;3NO - SKIP 
TYPE $BELL ;;RING BELL 
1$: INC SERTTL ;;COUNT THE NUMBER OF ERRORS 
MOV (SP), $ERRPC ;3GET ADDRESS OF ERROR INSTRUCTION 
SUB 2, $ERRPC 
VB  @$ERRPC,$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T13, ;;SKIP TYPEOUT IF SET 
BNE 20$ ;;SKIP TYPEOUTS 
JSR PC, ERT/PE ;;60 TO USER ERROR ROUTINE 
i TYPE ,$CRLF 
CMPB #§ #APTENV,$ENV _—; ;RUNNING IN APT MODE 
BNE 2$ ::NO,SKIP APT ERROR REPORT 
MOVB $ITEMB,21$ ;:SET ITEM NUMBER AS 
JSR PC, $ATY4 ; ;REPORT FATAL ERROR TO APT 
21$: “BYTE 0 
"BYTE 0 
223: BR 22$ ;;APT ERROR LOOP 
2$: TST @aSWR ;;HALT ON ERROR 
BPL 3$ ;;SKIP IF CONTINUE 
T ;;HALT ON ' 
CKSWR :;TEST FOR CHANGE I T- 
3$: BIT #BIT09, ASWR ;;LOOP ON ERROR SWITCH SET? 
BEQ $ ;3BR IF NO 
MOV $LPERR, (SP) ; ; FUDGE RETURN FOR LOOPING 
4$: TST ESCAPE i CHECK FOR AN ESCAPE ADDRESS 
BEQ S$ + BR IF NONE 
” MOV $ESCAPE , (SP) ;;FUDGE RETURN ADDRESS FOR ESCAPE 
CMP @$ENDAD,@042 § ;;ACT-11 AUTO-ACCEPT? 
BNE 6$ ;;BRANCH IF NO 
HAL T 3;YES 
6$: 
RTI TURN 
sett. eadat routine For Lcp/ontin Urb 
ABORT: TST UFDFLG ;TEST FOR ROLSER FRIENDLY MODE 
BEQ NOABRT IF NOT UFD THEN CONTINUE NORMAL OPERATION 
CMP RO, #32 sIS IT A tZ ? 





—~ 


Mil 
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ABORT ROUTINE FOR LCP/ORION UFD 


4954 


032524 
032526 


001443 
020027 


112737 
000403 


000003 


000057 
000136 
000103 
004146 
004150 
177777 
000042 


000042 
031732 


000001 
000001 


000001 


033114 
000001 
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MODE 


000030 
000032 


177777 


000030 
000032 


033116 
033114 


033116 


001200 
033026 
000004 


ABORTC: 


1$: 


ABORTE : 


ABORTZ: 


S 

SAV32, 32 
CRO) 

1$ 
#'/,-10RO) 
#'t,CRO)+ 
#'C,CRO)+ 


(RO) 
ABOR 


4 
#-1,42(RO) 
ae42 ,RO 
ae42 
$ENDAD 


NOABRT: RTS PC 
.SBTTL APT COMMUNICATIONS ROUTINE 


SEQ 0142 
: JUST GO BACK TO CHAIN IF IT IS (NO ERROR) 

} 

;BR TO LOAD tC ON XXDP+ STACK (NO ERROR) 

;TEST FOR USER-QUIET 

;IF FIELD-SERVICE MODE, CONTINUE NORMAL OPERATION 

; BE FIELD-SERVICE MODE DOES NOT QUIT ON ERROR 
-SET DRSERR THEN LEAVE 

;RESTORE EMT LOCATION (30) 

;RESTORE EMT PRIORITY LOCATION (32) 

‘GET XXDP STACK LOC. INTO RO FROM MONITOR 

;FIND END OF STACK 

;LOAD SLASH OVER ZERO 

;LOAD UPARROW 

;LOAD C 

-MAKE NEW END TO STACK 

;NOW LEAVE 


;sRESTORE EMT LOCATION (30) 


MONITOR RETURN FLAG 
;RETURN TO MONITOR-DO NOT PUSH STACK HERE 
SIF NOTUFD RETURN TO MAINLINE 


parse a1 Sela taTO REPORT FATAL ERR 
AL 


ATY1L: . $FFLG 
$ATY3: MOVB 1. $MFLG 
BR $ATYC 
$ATY4: MOVB #1,$FFLG 
$ATYC 
MOV RO, - (SP) 
MOV Ri. -(SP) 
TSTB =s.-« SMFLG 
BEQ ' 
cHPe SAPTENV, $ENV 
BITB § #APTSPOOL, $ENVM 
BEQ 3$ 
MOV @4(SP),RO 
ADD $2, 4(SP) 
1$: TST $MSGTYPE 
BNE i$ 
MOV RO, $MSGAD 
2$: TSTB =s- CRO) + 
BNE 2¢$ 
SUB $MSGAD , RO 
ASR RO 
MOV RO, $MSGLGT 
MOV #4. $MSGTYPE 
BR S$ 
3$: MOV a4(SP),4$ 
ADD #2,4(SP) 
MOV 177776, -(SP) 
JSR PC, $TYPE 
4$: .WORD 


sal 
::T0 TYPE A MESSAGE 
3:70 ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
eB TYPE A MESSAGE? 


; | OPERATING UNDER APT? 


;;PUT MSG ADDR IN JSR LINKAGE 
RETURN ADDRESS 

,;PUSH 177776 ON STACK 

CALL TYPE MACRO 








COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 Wednesday 09-Apr-86 09:43 Page 50-4 


APT COMMUNICATIONS ROUTINE 


4955 


033116 


105737 
100002 


033116 
001220 
001200 


033114 


001157 


000002 
000001 
000100 
033170 
032660 


001202 
000004 


001220 
001221 


000040 001221 


SEQ 0143 
5$: 
ios: TSTB  $FFLG ;;SHOULD REPORT FATAL ERROR? 
BEQ 12$ ‘iT NOT: BR 
TST SENV ; RUNNING UNDER APT? 
BEQ 12$ ‘TTF NOT: 
11$: TST $MSGTYPE i FINISHED LAST MESSAGE? 
BNE 11$ + WAIT 
MOV BACSP),$FATAL  3;GET a 
ADD #2,4(5P) UMP RETURN ADDR. 
INC sMSGTYPE TELL ABT TO TAKE ERROR 
12$:  CLRB  $FFLG ‘CLEAR FATAL FLAG 
CLRB $LFLG ;;CLEAR LOG FL 
CLRB LG CLEAR MESS 
MOV (SP)+,R1 ‘POP STACK INTO Ri 
MOV (SP)+, ;;POP STACK INTO RO 
RTS : RETURN 
SMELG: .BYTE 0 -;MESSG. FLAG 
$LFLG: “BYTE 0 ‘LOG FLAG 
$FFLG: “BYTE 0 FATAL FLAG 
EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL =100 
CSUP= 


APT 040 
.SBTTL TYPE ROUTINE 
5 RRR EERERAR EEE EREEEEAE EERE EEE EEEESS SEES EERE EES ESSE EEES ES 


;*ROUTINE TO TYPE ASCIZ ane MESSAGE 
HE ROUTINE WILL INSERT OF NULL 
: AINS THE CHARACTER TO BE 


; *NOTE1 $NULL CONT USED HE FILLER CHARACTER 
; #NOT $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS RE RED. 
; #NOTES $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 
;*#CALL: 
:*1) USING A TRAP INSTRUCTION 
a TYPE  ,MESADR + ;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;* 
;* TYPE 
- MESADR 
_ 
itype: TSB STPFLG ,:IS THERE A TERMINAL? 
is 
HALT ; ;HALT HERE IF NO TERMINAL 
BR ; ;LEAVE 
1$: MOV RO, -(SP) ;:SAVE RO 
MOV a2(SP),RO ;;GET ADDRESS OF ASCIZ STRING 
@APTENY,$ENV -; ;RUNNING IN 
BNE 62$ ;;NO,GO CHECK FOR APT CONSOLE 
BITB § #APTSPOOL,$ENVM ;;SPOOL MESSAGE TO APT 
BEQ 62$ ;:NO.GO CHECK FOR CONSOLE 
MOV RO,61$ ;;SETUP MES ADDRESS FOR APT 
JSR PC; $ATY3 ;;SPOOL MESSAGE TO APT 
61$: } 0 ; MESSAGE 
62$:  BITB  #APTCSUP,$ENVM ;;APT C E SSED 
BNE 60$ ;;YES,SKIP TYPE OUT 
24: MOVB - (RO)+, -(SP) : ;PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ :;BR IF IT ISN'T THE TERMI 
TST (SP)+ IF TERMINATOR POP IT OFF THE STACK 








See ange 
TYPE ROUTINE 
033210 01 
033212 062716 000002 
033216 
033220 122716 000011 
033224 0014 
033226 122716 000200 
633232 001 
633234 005726 
033236 104401 
03 001175 
033242 105037 033450 
033246 000755 
033250 004737 033332 
033254 123726 001156 
033260 0013 
033262 013746 001154 
033266 105366 000001 
033272 002770 
033274 004737 033332 
33300 105337 033450 
033304 00077 
33306 112716 000040 
033312 004737 033332 
033316 132737 000007 033450 
33324 001372 
33326 005726 
033330 000724 
033332 
033332 105777 145606 
033336 100022 
33340 017746 145602 
33344 042716 177600 
033350 122716 3 
033354 00101 
033356 
033356 105777 145562 
33362 1003 
33364 117716 145556 
033370 042716 177600 
033374 122716 000021 
33400 001 
033402 
033402 005726 
033404 
033404 105777 145540 
033410 100375 
033412 116677 145532 
033420 122766 000015 000002 
033426 001003 
033430 105037 033450 
033434 
033436 122766 000012 000002 
03 001402 
03 105227 
033450 


5$: JSR 
6$: CMPB 


7$: DECB 


ima TAB 
$: VB 

9$: SR 
BITB 
BNE 
TST 


BR 
$TYPEC: 

TSTB 

BPL 


101$: 


102: 
10$: 


$CHARCNT 
2$ 


PC, $TYPEC 
$FILLC,(SP)+ 


$NULL, -( SP) 

1(¢SP) 

PC, $TYPEC 
HARCNT 


| 
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;sRESTORE RO 
;:;ADJUST RETURN PC 


7 RE 
;;BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> \ aed 
TYPE A CR AND L 


CLEAR ade COUNT 
GET NEXT CHARACTER 

oe TYPE_THIS CHARACTER 
IF 


sei 


AND NULL 
DOES A NULL NEED 0 ag! TYPED? 
BR POP THE NULL OFF OF STACK 


;;REPLACE TAB WITH SPACE 
;;1TYPE A 
oy IF NOT AT 
#3 TAB 

;POP SPACE OFF STACK 
GET NEXT CHARACTER 


;;CHAR IN KYBD BUFFER? ;MJDOO1 
>:BR IF NOT :MJDO01 
3; ;GET ;MJDOO1 
:=STRIP EXTRANEOUS BITS ;MJDO001 
;;WAS XOF ;MJD001 
::BR IF NOT ;MJDOO1 
WAIT FOR CHAR soot 
genre M0001 
CHAR ;4JD00 
STRIP IT :MJDOO01 
;;WAS IT XON? ;MJDO01 
33 F NOT ;MJDOO1 
TACK EDO! 

FIX 
wi io’ PRINTER IS READY :MUDOO! 
dies ;MJDOO1 


;LOAD CHAR TO ¥ TYPED INTO DATA REG 


; 

3315S CHARACTER A CARRIAGE RETURN? 
; ;BRANCH 

4), “acai CHARACTER COUNT 

$3 

3315 CHARACTER A LINE FEED? 
;;BRANCH IF YES 

;;COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 
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TYPE ROUTINE 


033452 000207 


4956 


000001 
033701 
000002 


033701 


000006 
033700 
033677 
000012 


033700 
177770 


033677 


033677 
033701 
033676 


$TYPEX: 


RTS 


PC 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


PPeTTTT TTT TTT TT eet ete 
;*THIS ROUTINE IS USED TO ee A 16-BIT BINARY NUMBER TO A 6-DIGIT 


:#OCTAL (ASCII) NUMBER _AND T 


NUM, -(SP) 


N 
a 


;4#$TYPOS OR $TYPOC 


;#CALL 
;* 
;* 


;*CALL: 


;* 
$TYPOS: 


$TYPOC: 
$TYPON: 


1$: 
2$: 


3$: 


4$: 


MOV 
TYPOC 
MOV 
MOVB 
MO\".g 
ADD 


BraBRSABSPSSSERSSSESSES 


NUM, -(SP) 


NUM, -(SP) 
yr 4A 


2 


SEE 


emery) 
ods 
Re 
et 


ae > Se 


AREAS 


#177770,R3 
4$ 


R4 
5$ 


R4 
#'O,R3 


O BE TYPED 


NUMBER T 
CALL_FOR TYPEOUT 
‘oi i FOR NUMBER OF DIGITS TO TYPE 


YPE IT 
YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;31=TYPE LEADING ZEROS 


; ;0=SUPPRESS LEADING ZEROS 


; ;sNUMBER TO BE 


TYPED 


+ CALL FOR TYPEOUT 
;* 
;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


CKUP THE 
;LOAD ZERO 


CO BE TYPED 
OUT 


FILL SWITCH 
; ;|NUMBER OF DIGITS TO TYPE 
; sADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 
SESET FOR SIX(6) TpIGTTS 


T THE ITERATI 
R3 


SAVE IT F 


;;G0 DO 
: FORM THIS DIGIT 


;;GET LSB OF THIS DIGIT 


;TYPE_THIS DIGIT? 


OF JUNK 


ION COUNT 


;SAVE R5 
;;GET THE NUMBER OF DIGITS TO TYPE 
; ; SUBTRACT mi FOR MAX. 


ALLOWED 


THE ZERO FILL SWITCH 
NUMBER 


SEG 0145 





COKDOBO KDJ11-DA CLUSTER DIAG. 
BINARY TO OCTAL (ASCII) AND TYPE 


000001 177777 


5$: 

7$: 

6$: 

8$: 
$OCNT: . 
$OFILL: . 
OMODE : 


33TE 
; ;OCTAL 
33 
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;;MAKE ASCII IF NOT ALREADY 
VE FOR TYPI 
GO TYPE THIS DIGIT 
OUNT B 
BR IF MORE TO DO 


BR IF 
; RESTORE 
; ;RESTORE R4 
; ;sRESTORE R 


; RETURN 

;;STORAGE FOR ASCII DIGIT 
RMINATOR FOR TYPE ROUTINE 
Dg COUNTER 


L CH 
OF DIGITS TO TYPE 
INE 


‘ : .WORD 0 ; ;NUMBER 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE 


‘ 
;*CALL: 
;* 


;* 
$TYPDS: 


1$: 


2$: 
3$: 


4$: 


5$: 


;*NUMBER IS 
;*BEFORE THE F 
*REPLACED WIT 


; SETUP OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 
$8 BCD NUMBER 

;;GET THE CONSTANT 

THIS BCD DIGIT 

33 DONE 

;; INCREASE THE BCD DIGIT BY 1 

;;ADD BACK THE CONSTANT 

CK IF BCD DIGIT=0 

;FALL THROUGH IF O 

;;STILL DOING LEADING 0'S? 

;;BR IF YES 

;3MSD? 

;;8R IF NO 
;;YES--SET THE SIGN 


$DTBLC(RO),R1 
R1,R5 ; ;F ORM 


II) NUMBER 

I OR NEGATIVE A SPACE OR 
IRST DIGIT OF T 
H SPACES. 

;;PUT THE BINARY NUMBER ON THE STACK 
;;GO TO THE ROUTINE 


;;PUSH RO ON S 
Ri ON 2 ACK 


. DEPENDING 
A MINUS SIGN WILL BE TYPED 
LEADING ZEROS WILL ALWAYS BE 








COKDOB8O KDJ11-DA CLUSTER DIAG. MACRO VO5S.03 
TO DECIMAL AND TYPE ROUTINE 


CONVERT BINARY 


034012 052702 000060 
034016 052702 000040 
034022 110225 
034024 005720 
034026 020027 000010 
034032 002746 
034034 003002 
034036 010502 
034040 764 
034042 105726 
034044 100003 
034046 116663 177777 
034054 105013 
034056 012605 
034060 012603 
034062 012602 
034064 012601 
034066 012600 
034070 104401 034116 
034074 016666 000002 
034102 012616 
034104 
0341 023420 
034110 001750 
0341 000144 
034114 000012 
034116 

4958 
034 022737 000176 
034134 001074 
034136 105777 145002 
034142 100071 
034144 117746 144776 
034150 042716 177600 
034154 022726 7 
034160 oot 
0341 123727 001134 
034170 001456 
034172 104401 0346635 
034176 104401 034670 
034202 013746 000176 
034206 104402 
034210 104401 034701 
034214 005046 
034216 005046 
034220 105777 144720 
034224 1003 
0 117746 144714 
0342 042716 177600 
034236 021627 


177776 


001140 


6$: BIS 


#'0,R2 
7$: BIS “ 
MOVB 


# ‘RO 
R2,(R3)- 
(RO)+ 
RO, #10 
BLT 2$ 
BGT 8$ 
MOV RS5,R2 
BR 63 
8$: TSTB —s-s« CSP-)+ 
BPL 


9$ 


Dre 
WN 
wv 


9$: CLRB 
MOV 


< 
RAAAARA 1 


R 
$DTBL: 10000 


$DBLK: .BLKW 4 
.SBTTL TTY INPUT ROUTINE 
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SEG 0147 


;MAKE THE A DIGIT ASCII 

T A_SPACE IF NOT Ag 1 A OIGIT 
: sPUT THIS CHARACTER IN THE OUTPUT BUFFER 
T INCREMENTING 
CK THE TABLE INDEX 
DO =" DIGIT 


Sao% : 


= 
- 
+o 
Am 
~~ 
= 


CHANGE TO ASCII 

S i He THE FIRST NON-ZERO? 

S--SET THE SIGN FOR TYPING 
NATOR 


mB SOM 


é 
za 
: 


PEERS 
: 
: 


TYPE 
;;ADJUST THE STACK 
; ;RETURN TO USER 


3 SEEEEREKAERAEAEEAERSESESESEEAEESESEDAEEEEESESESESEEEEESESESESESESESESE ES 
LSB 


ee a aa 


;*SOFT 


;*ROUTINE IS ENTERED FROM THE 
FOR CHANGE IN SOFTWARE 


;*#SERVICE THE TEST 
; * WHEN 


$CKSWR: CMP @SWREG , SWR 
BNE 15$ 
TSTB  =s_- @$ TKS 
BPL 15$ 
MOVB a$TKB,-(SP) 
BIC $tC177,(SP) 
CMP #7, (SP)+ 
BNE 15$ 
CMPB 0Os«S AUTO, #1 
BEQ 15$ 
$GTSWR YPE Seu 
MOV SWREG, -( SP) 
TYPOC 
TYPE ,$MNEW 
19$: CLR -(SP) 
CLR -(SP) 
7$ TSTB =s_ @S TKS 
BPL 7$ 
MOVB § a$ TKB, -( SP) 
BIC #tC177, (SP) 
9$ CMP (SP) ,@25 


WARE SWITCH REGISTER CHANGE 
TRAP HANDLER 


WILL 
TUARE SUITCH REGISTER TRAP CALL 


331S THE SOFT-SWR SELECTED? 
$3 IF NO 


33 THERE? 

aA NO, DON’T WAIT AROUND 

:  STRIP-OFF THE ASCII 

3325 IT A CONTROL G? 

;;NO USER 

33 WE RUNNING IN AUTO-MODE? 

;;BRANCH IF YES 

+ EOE THE CONTROL-G (tG) 
CONTENTS 


: SAVE SWREG FOR TYPEOUT 
;;G0 TYPE--OCTAL ASCIICALL DIGITS) 
FOR NEW SWR 


OPERATING IN TTY FLAG MODE. 








034656 
000006 


000002 
177776 
001174 


000004 
144520 


144514 
177600 
000004 


COKDOBO KDJ11-DA CLUSTER DIAG. MACRO VO5.03 
TTY INPUT ROUTINE 


144640 


000001 
144616 


000023 


000021 
000140 


17$: 


18$: 
. DSABL 


. $CRLF 
$INTAG, #1 


Bae Reggae 
= eae 1H 
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SEQ 0144 


; ;BRANCH IF NOT 

+ TYES ECHO CONTROL-U (TU) 
31 PREVIOUS INPUT 
;;LET‘’S TRY IT AGAIN 

3315 IT A <CR>? 


;BRANCH I 
;YES, IS IT THE FIRST CHAR? 
F YES 


AND <LF> 
ext KBD INTERRUPTS? 
TTY KBD INTERRUPTS 


? 
F YES 


; 
: 
; 
: 
; 
; 
; 
: 
; 
; 
; 
; 
; ? 

; YES 
; 

; 

: 

; 


; CHAR OVER TO MAKE 


$3 Cerone aan he Tt 


: 
;* 
;* 
;* 


n 
$RDCHR : 


1$: 


2$: 


3$: 


;*THIS ROUTINE 
+*CALL : 


WILL INPUT A SINGL 


RDCHR 
RETURN HERE 

MOV (SP),-CSP) 

MOV (sP},2¢SP) 
TSTB 3—ss @$ TKS 

BPL $ 

MOVB  a$TKB, 4(SP) 
BIC $tC<177>,4(SP) 
CMP 4(SP) A a8 

BNE $ 

TST8 = a$ TKS 

BPL $ 

MOVB a$TKB,-(SP) 
BIC C177, (SP) 
CMP (SP)+, #21 

BNE 

BR i$ 

CMP 4( SP), #$XON 
BEQ 

CMP 4(SP), #140 


E CHARACTER FROM THE T 


; INPUT A SINGLE CHARACTER FROM THE TTY 
; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


;;SAVE THE PS 

8 T FOR 

;;A CHARACTER 

;;READ THE TTY 

;;GET RID OF IF ANY 
3;1S IT A al 

33 


opi. 
S IT UPPER CASE? 








Gle 
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TTY INPUT ROUTINE 


4959 


000004 000175 


034646 
034656 


000177 
001174 
034644 
034644 
000015 
177777 
001176 


000004 
034646 


cen ee = 
ee al, ——eEeEorreeeee 


SEQ 0149 
BLT 4$ ;;BRANCH IF YES 
CMP 4(SP),#175 3;1S IT A SPECIAL CHAR? 
BGT 4$ ' 3;BRANCH IF YES 
BIC #40 ,4(SP) ;;MAKE IT UPPER CASE 
4$: RTI ;;GO BACK TO USER 


5 RRR A REESE EEEEEEESESEREEEEEEREREEESSSESEREEEEESEEEEE DEERE EDS 
pe yy ROUTINE WILL INPUT A STRING FROM THE TTY 


;*C 
;* IN ;;INPUT A STRING FROM THE TTY 
: RETURN HERE - SS OF FIRST CHARACTER WILL BE ON THE STACK 
- ;; TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV R3, -(SP) ;;SAVE R3 
1$: MOV S$TTYIN,R3 ;;GET ADDRESS 
2$: CMP #$TTYINe«8. ,R3 ; ;BUFFER FULL? 
BLOS 4$ ;;BR IF YES 
RDCHR ;;G0 READ ONE CHARACTER FROM THE TTY 
MOVB (SP)+,(R3) ;;GET CHARACTER 
10$: CMPB—s-s«a@177,, (R33) ;;1S IT A 
BNE 3$ ;;SKIP IF NOT 
4$ TYPE , $QUES 33; 1YPE A ‘?' 
BR 1 ;;CLEAR THE BUFFER AND LOOP 
3$ MOVB (R3),9$ ;;ECHO THE CHARACTER 
CMPB #15,CR3)+ ;;CHECK FOR RETURN 
BNE ;;LO0P IF NOT 
CLRB -1(R3) ;;CLEAR RETURN (THE 15) 
TYPE LF 3;1YPE A LINE F 
MOV (SP)+,R3 ; ;RESTORE R3 
MOV (SP),-(SP) ; ;ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(sP},2¢SP) $3 FIRST ASCII CHARACTER ON IT 
MOV e$TTYIN, 4(5P) 
RTI ; sRETURN 
9$: BYTE 0 ;;STORAGE FOR ASCII CHAR. TO TYPE 
‘BYTE 0 ; ; TERMINA 
$TTYIN: .BLKB 8. ; ;RESERVE 8 BYTES FOR TTY INPUT 
$CNTLU: .ASCIZ /tU/<15><12> ;;CONTROL “U” 
$CNTLG: .ASCIZ /tG/<15><12> ;;CONTROL “G" 
$MSWR: .ASCIZ <15><12>/SWR = / 
$MNEW: .ASCIZ / NEW = / 


.SBTTL READ AN OCTAL NUMBER FROM THE TTY 
5 RRRRRRREE EERE ESEAERREEAEREEEEEESERERSSERESERER EEE SES ES ESE ESSE SS 


;#THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
;*CHANGE IT TO BINARY. 


;*CALL: 
;* RDOCT ;;READ AN OCTAL NUMBER 
- RETURN HERE »;LOW ORDER BITS ARE ON TOP OF THE STACK 
;* »;HIGH ORDER BITS ARE IN $HIOCT 
$RDOCT: MOV (SP), -C(SP) ; ;PROVIDE SPACE FOR THE 
MOV 4(SP),2(SP) ; ;INPUT NUMBER 
MOV RO, -(SP) ; PUSH RO ON STACK 
MOV R1,-(SP) ; PUSH R1 ON STACK 








Hie 


COKDDBO KDJ11-DA CLUSTER DIAG. MACRO VO5.05 


READ AN OCTAL NUMBER FROM THE TTY 


177770 


26 
010166 000012 
035012 


4960 


035050 


000004 000002 
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SEQ 0150 

MOV R2,-CSP) ;;PUSH R2 ON 
1$: RDLIN 3 sREAD AN ASCIZ LINE 

MOV (SP)+,RO :3GET ADDRESS OF 1ST CHARACTER 
2$: MOVB CRO)+,-CSP) ere THIS CHARACTER 

BEQ 3$ 331F ZERO GET OUT 

ASL Ri 33% 

ROL Re 

ASL Ri 334 

ROL RO 

ASL Ri 33%8 

ROL Re 

BIC #tC7, CSP) ;;STRIP THE ASCII JUNK 

~ eo 33 ty IN THIS DIGIT 

33 

3$: TST (SP )+ ;;CLEAN TERMINATOR FROM STACK 

MOV R1,12CSP) ;;SAVE THE RESULT 

MOV R2, $HIOCT 

MOV (SP)+,Re ;;POP STACK INTO R2 

MOV (SP)+,R1 ;;POP STACK INTO Ri 

MOV (SP )+,RO ;;POP STACK INTO RO 

RTI ; ;RETURN 

: 0 ;;HIGH ORDER BITS GO HERE 


;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;#AND USE TO INDEX 7 TRAP TABLE FOR THE STARTING 
;*OF THE DESIRED ROUT INE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*#GO TO THAT INE. 
: MOV RO, -CSP) ;;SAVE RO 
MOV 2(5P),RO :3GET TRAP ADDRESS 
TST -C(RO) ; ;BACKUP BY 2 
MOVB CRO) ,RO SIGET RIGHT BYTE OF TRAP 
ASL RO ;;POSITION FOR INDEXING 
Ao $TRPADCRO),RO ;;INDEX TO TABLE 
RTS RO pace GO TO ROUTINE 
eS ee Is - TO ye THE “GET " MACRO 
$TR (SP),-CSP) ;;MOVE THE PC DOWN 


; MOVE THE PSW DOWN 
RTI ; ;RESTORE THE PSW 
-SBTTL _TRAP 


TABLE 
;*#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*#BY THE athe INSTRUCTION. 
; 


4(SP5,2CSP) 


; ~-—<—<—-—--— = 

$TRPAD: .WORD RAP2 
$TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC ah Ep eres 8 TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ;;CALL=TYPDS TRAP+5( 104405) TYPE DEC NUMBER (WITH SIGN) 
$GTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT- SETT 
$CKSWR ;;CALL=CKSWR +7€104407) TEST FOR T-SWR 
$RDCHR ;;CALL=RDCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
$RDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
$RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 








COKDOBO KDJ11-DA CLUSTER DIAG. MACRO VO5.05 


POWER DOWN AND UP ROUTINES 


4961 


4963 


013706 


035236 
000340 


035076 
000340 


Ole 
127 
000 


000024 
000026 


000024 


000024 


000024 
000026 


120 
105 
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SEQ 0151 


.SBTTL POWER DOWN AND UP ROUTINES 
ane eee eeaemeneemmanenmeneets 


SPWRON: 


DOWN INE 
MOV S$ILLUP,@@PWRVEC ;;SET FOR FAST UP 
MOV $340, BPPWRVEC+2 ;;PRIO:7 
MOV RO, -(SP) ; ;PUSH RO ON STACK 
MOV R1,-(SP) ;;PUSH R1 ON ST 
MOV R2,-(SP) ;;PUSH R2 ON STACK 
MOV R3, -(SP) ; ;PUSH R3 ON STACK 
MOV R4,-(SP) ;;PUSH R4 ON STACK 
MOV em ;;PUSH RS ON STACK 
MOV aSWR, -(SP) ;;PUSH @SWR ON STACK 
MOV SP, $SAVR6 ;;SAVE SP 
MOV SePURUP @BOPWRVEC ;;SET UP VECTOR 
a 


.-e ; HANG 
PTTTT TTT TTT TTT TTT TTT TTT ttt ttt titi ier ee 


‘BOWER UP ROUTINE 


$PWRUP : 


1$: 


$PWRMG : 
$ILLUP: 


$SAVRE: 
$POWER: .ASCIZ 


MOV 
MO 

CLR 
INC 


MOV 
MOV 


EEEEEEEEE) | 


“Sig 


. EVEN 
-END 


BOLL LO$LO 


i 
§ 


a8 


.-2 
<15><12>"POQWER” 


Sehr .Berunver ; aT FOR FAST DOWN 


SP 
SSMAIT LOOP FOR THE TTY 
SWAIT FOR THE INC 


1 THE POWER FAILURE 
;;POWER FAIL MESSAGE POINTER 


;;THE POWER UP SEQUENCE WAS STARTED 
;; BEFORE THE POWER DOWN WAS COMPLETE 
;;PUT THE SP HERE 








COKDDBO KDJ11-DA CLUSTER DIAG. 


Symbol table 
ABASE = 


SEErSEEE 


see 


2 


ae 


MACRO VO5.03 


002366 
004054 


30 
177570 
areas 


31544 
025314 
26255 
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021013 
021042 











K1e2 
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SEQ 0153 
Symbol table 
KIPDRI= 172302 PIRQT 017710 SDPAR6= 172274 SW10 = 002000 
KIPOR2= 172304 PIRQVE= 000240 SDPAR7= 172276 SWil = 
KIPDR3S= 172 Y = 120001 SDPDRO= 172220 SWi2 = 010000 
KIPOR4= 172310 = 000000 SDPDR1i= 172222 SWi3 = 020000 
KIPDRS= 172312 PRI = SDPDR2= 172224 SWi4 = 040000 
KI = 172314 PR2 = 000100 SDPDR3= 1722 SWiS = 100000 
KIPOR7= 172316 PRS = 000140 SDPDR4= 172230 SW2 = 000004 
KMCR = 177734 PRA = SDPDRS= 172232 SW3 = 000010 
LDPARS 027410 PRS = 000240 SDPDR6= 172234 = 000020 
LOPDRS 027440 = 000300 SDPDR7= 172236 SWS) Ss =_:« 000040 
LEDCNT 0023 PR7 = SEQ 003076 = 000100 
a = 000012 PS = 177776 SETMMU 030676 SW7 = 000200 
LKCNT 002404 PSW = 177776 SIMGOA 002352 SW8 a 
LKS = 177546 PWDSE SIPARO= 172240 = 001000 
KSFL PWRVEC= 000024 SIPARI= 172242 TAB1L 003240 
LKSINT 027522 Q22EN 003002 SIPAR2= 1722 TAB1O 003370 
Q22INT SIPAR3= 172246 T 
LOOPIN 003160 Q22SIZ 7 SIPAR4= 172 TABI1A 003410 
LOPBAK ke 027464 SIPARS= 172252 TABI2 003420 
003020 UF =1 SIPAR6= 172254 TABi3 003430 
LSTADO RBUF1 = 176502 SIPAR7= 172256 TABi3B 00 
MAIREG= 177750 RCOUNT 56 SIPDRO= 172 TAB14 3450 
MASK 164 RCSR = 177560 SIPDRi= 172202 TAB15 
MER = 172100 RCSR1 = 176500 SIPDR2= 172204 TABi6 003470 
MERTAG 00 RDCHR = 104410 SIPDR3= 17 TAB1L7 3 
MMRO = 177572 RDLIN = 104411 SIPDR4= 172210 TABIi8 003510 
MMR1 = 177574 = 104412 SIPDR5= 172212 
MMR2 = 177576 RECDAT 34 SIPDR6= 172214 TAB21 3 
MMRS = 172516 RECDST 003146 SIPDR7= 172216 003530 
MMU 0 RECFEC 003126 SL 016714 TAB23 3 
006016 003136 SLOCOO 00 TAB24 003550 
MMUTRP O RESVEC= 10 SLOCO1 003012 TAB25 
MMVEC = RITEDA SPS 003100 AB26 003570 
= 177744 031350 SPSJ 003102 TAB27 
NATREG= 1 RWTMEM 031176 SRO = 177572 TAB28 003610 
3030 R6 = SRi = 177574 TAB29 
NEWDAT R7 =#00000 SR2 = 177576 TAB29A 003630 
SAVBR 002414 SR3 = 172516 TABS 3260 
NOSLU 016716 SAVLOC 0024 STACK = 001100 TAB30 
NOTOK SA 003044 START TAB31 #003650 
= SAVMR1 003046 STBOT = OO1 TAB32 
NXTST 011552 SAVMR2 00 STKLMT= 177774 TAB33 003670 
SAVPCR 12 SWR 1140 TAB34 
OK1 SAVPOS 003162 SWREG 000176 TAB4 003270 
ONOG22 027772 SAVSUP SWT 017750 TAB40 003710 
352 VSWR SWO = TAB4i1 003720 
PARABT 056 SAVTIM 003016 SWOO = 000001 TAB42 003730 
007452 AVUSE 2 SWOl = TAB43 003740 
PARINT 7444 SAV30 004146 = TAB45 003750 
003014 SAV32 004150 SWO3 = 000010 TAB46 003760 
PARI 030354 SCOPE = = TAB47 003770 
PATT SDPARO= 172260 SWOS = 000040 TAB47A 004000 
PC = 177522 SDPARI= 172262 WO6 = 000100 TAB48 004010 
POR 030330 SDPAR2= 172264 SWO7 = 000200 TAB49 004020 
POR1 030332 SDPAR3= 172266 SWO8 = 000400 TABS 003300 
PIR «= 177772 SDPAR4= 172270 SWO9 = 001000 TABSA 003310 
PIRQ = 177772 SDPARS= 172272 SWi = 000002 TABE 003320 
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SEQ 0154 
Symbol table 
UDPDR2= 177624 $ATY1 032652 $ENDAD 031732 $MAIL 001200 
UDPORS= 177626 $ATY3 032660 $ENDCT 031700 1 001230 
UDPOR4= 177630 $ATY4 032670 $ENDMG 031751 $ 001234 
UDPDORS= 177632 $AUTOB 001134 $ENULL 031746 $MAMS3 001240 
= 177634 $BASE 001254 $ 001220 $ 001244 
7= 177636 BO 001122 $ENVM O01 $ 
UF DFLG $BDDAT 001126 $E0P 031632 $MFLG 033114 
DSET= $BELL 001170 $EOPCT 031672 $ 
PARO= 177640 $COW1 1260 $ERFLG 001103 $ 001214 
UIPARi= 177642 $CDW2 1262 $€ 001115 G 001216 
VIPAR2= 177644 $CHARC 033450 $ 032270 $MSGTY 1 
UIPAR3= $CKSWR 034126 C 001116 034670 
UIPAR4= 177650 $CMTAG 001100 001324 $MTYP1 001231 
UIPARS= $ = 000000 $ERTTL 001112 $MTYP2 001235 
= 177654 $ = 000002 $ESCAP 001166 Y°3 001241 
UIPAR7= 177656 $CNTLG 034663 $ETABL OO1 $MTYP4 001245 
UIPDRO= $CNTLU 034656 001324 $MXCNT 0O 
UIPORI= 1 C 001226 $FATAL O01 L 001154 
= 177604 $CRLF 175 $FFLG 033116 $NWTST= 
UIPORS= 177 $DBLK 034116 $FILLC $OCNT 033676 
POR4= 177610 $ 1264 $FILLS 001155 $OMODE 033700 
UIPORS= 177612 1 1266 $GD 
= 177614 $DDWi0 001310 $GDDAT PA 001206 
UIPOR7= 177616 $DDW11 001312 $GET42 031722 $PASTM 2 
ET $DDWi2 001314 $GTSWR P 035244 
VIREOP 017724 $D0W13 001316 $HD = $ 035076 
1 $0D0W14 1 $HIBTS $PWRMG 
VQBE1 $D0W15 132 $HIOCT 035012 $ 035150 
VQBE2 002376 $D0DW2 001270 $ICNT $QUES 001174 
VQ@PRi 002350 $DDW3 001272 $ILLUP $ 1 
V@PR2 002400 $DDW4 001274 AG 001135 $RDLIN O 
$D0W5 001276 $ITEMB 001114 $RDOCT 034712 
372 $ 001300 LF 1176 $RDSZ = 000010 
WLOTRP 030522 $DDW7 001302 $LFLG 033115 $R 031744 
= 177566 $ 001304 1106 $SAVR6 O 
XBUF1 = 176506 001306 L Sotaes $SCOPE 031766 
XCSR = 177564 $DEVCT 001210 $MADR1i 0012 SETUP= 1 
XCSR1 = 176504 DE 001 $ 001236 STUP = 177777 
$ 031742 $MADRS 001242 $SVLAD 032210 
$ATYC 032676 $OTBL 0341 $MADR4 0012 


. ABS. 035254 000 )=s—s« CRW, 1, GBL , ABS, OVR) 
000000 001 (CRW,I,UCL,REL,CON) 
Errors detected: 0 


*+* Assembler statistics 


Work file reads: 400 

Work file writes: 301 

Size of work file: 55224 Words ( $16 Peaes) 
Size of core aeel: 19684 Words ( 7 regres? 
Operating system: RSX-11M/PLUS Cunder AX/VMS) 


popes time: 00:02:59.53 
COKD080/ -SP=ORION. MLB/ML , COKDDB0 ..MAC/DS : GBL 





| ae 


